Update of /project/movitz/cvsroot/movitz/losp/tmp In directory common-lisp.net:/tmp/cvs-serv22560
Modified Files: packet.lisp Log Message: Don't entirely skip the reader-macro stuff for the movitz side.
Date: Wed Jul 21 15:37:07 2004 Author: ffjeld
Index: movitz/losp/tmp/packet.lisp diff -u movitz/losp/tmp/packet.lisp:1.2 movitz/losp/tmp/packet.lisp:1.3 --- movitz/losp/tmp/packet.lisp:1.2 Wed Jul 21 05:33:54 2004 +++ movitz/losp/tmp/packet.lisp Wed Jul 21 15:37:06 2004 @@ -270,7 +270,7 @@ ;;; ;;; The read syntax is `#e"ff:00:1:2:3:4'. ;;; -(eval-when (:compile-toplevel #-movitz :load-toplevel #-movitz :execute) +(eval-when (:compile-toplevel :load-toplevel :execute) (defstruct (ethernet-address (:conc-name #:ethernet-address.) (:print-function print-ethernet-address)) "48-bit Ethernet MAC address." @@ -291,7 +291,8 @@ (setf (elt vec i) octet)))) (unless *read-suppress* (make-ethernet-address :octets vec))))) - + + #-movitz (set-dispatch-macro-character ## #\e 'read-ethernet-address)
(defun print-ethernet-address (address stream depth) @@ -397,7 +398,7 @@ ;;; ;;; IP addresses also have a special read-syntax: `@10.0.0.1'. ;;; -(eval-when (:compile-toplevel #-movitz :load-toplevel #-movitz :execute) +(eval-when (:compile-toplevel :load-toplevel :execute) (defstruct (ipv4-address (:conc-name #:ipv4-address.) (:print-function print-ipv4-address)) (octets 0 :type (array octet (4)))) @@ -416,6 +417,7 @@ (unless *read-suppress* (make-ipv4-address :octets vec)))))
+ #-movitz (set-macro-character #@ 'read-ipv4-address t)
(defun print-ipv4-address (address stream depth)