[movitz-cvs] CVS update: movitz/losp/tmp/packet.lisp

[Frode Vatvedt Fjeld]

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)