[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-serv21280

Modified Files:
	packet.lisp 
Log Message:
With these modifications, the file is accepted by movitz-compile-file.

Date: Wed Jul 21 05:33:54 2004
Author: ffjeld

Index: movitz/losp/tmp/packet.lisp
diff -u movitz/losp/tmp/packet.lisp:1.1 movitz/losp/tmp/packet.lisp:1.2
--- movitz/losp/tmp/packet.lisp:1.1	Wed Jul 21 05:02:14 2004
+++ movitz/losp/tmp/packet.lisp	Wed Jul 21 05:33:54 2004
@@ -270,11 +270,11 @@
 ;;;
 ;;; The read syntax is `#e"ff:00:1:2:3:4'.
 ;;;
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (:compile-toplevel #-movitz :load-toplevel #-movitz :execute)
   (defstruct (ethernet-address (:conc-name #:ethernet-address.)
                                (:print-function print-ethernet-address))
     "48-bit Ethernet MAC address."
-    (octets (ext:required-argument) :type (array octet (6))))
+    (octets 0 :type (array octet (6))))
 
   (defun read-ethernet-address (stream &optional c n)
     "Read an ethernet address in colon-separated syntax.
@@ -397,10 +397,10 @@
 ;;;
 ;;; IP addresses also have a special read-syntax: `@10.0.0.1'.
 ;;;
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (:compile-toplevel #-movitz :load-toplevel #-movitz :execute)
   (defstruct (ipv4-address (:conc-name #:ipv4-address.)
                            (:print-function print-ipv4-address))
-    (octets (ext:required-argument) :type (array octet (4))))
+    (octets 0 :type (array octet (4))))
 
   (defun read-ipv4-address (stream &optional c n)
     "Read an IPv4 address in dotted-quad format.
@@ -826,8 +826,8 @@
            (structure-accessors name)))
 
   (defun structure-accessors (name)
-    (mapcar #'pcl::slot-definition-defstruct-accessor-symbol
-            (pcl:class-direct-slots (find-class name))))
+    #+cmu (mapcar #'pcl::slot-definition-defstruct-accessor-symbol
+		  (pcl:class-direct-slots (find-class name))))
 
   (export (structure-exports)))