[movitz-cvs] CVS update: binary-types/binary-types.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/binary-types
In directory common-lisp.net:/tmp/cvs-serv11619

Modified Files:
	binary-types.lisp 
Log Message:
I think I simply forgot to check in this. Maybe this fixes the problem
with binary-types and CMUCL.

Date: Tue Apr 20 04:32:50 2004
Author: ffjeld

Index: binary-types/binary-types.lisp
diff -u binary-types/binary-types.lisp:1.2 binary-types/binary-types.lisp:1.3
--- binary-types/binary-types.lisp:1.2	Thu Jan 15 08:18:29 2004
+++ binary-types/binary-types.lisp	Tue Apr 20 04:32:50 2004
@@ -1,7 +1,7 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 200120001999, 2003-2004,
-;;;;    Department of Computer Science, University of Tromsø, Norway
+;;;;    Copyright (C) 1999-2004,
+;;;;    Department of Computer Science, University of Tromsoe, Norway
 ;;;; 
 ;;;; Filename:      binary-types.lisp
 ;;;; Description:   Reading and writing of binary data in streams.
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 19 18:53:57 1999
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: binary-types.lisp,v 1.2 2004/01/15 13:18:29 ffjeld Exp $
+;;;; $Id: binary-types.lisp,v 1.3 2004/04/20 08:32:50 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -421,14 +421,15 @@
 ;;;(defun record-slot-type (s) (second s))
 ;;;(defun record-slot-on-write (s) (third s))
 
-(defstruct record-slot
-  name
-  type
-  map-write
-  map-read
-  map-read-delayed
-  hidden-read-slot
-  tags)					; for map-read-delayed, the binary value is stored here.
+(eval-when (:load-toplevel :compile-toplevel)
+  (defstruct record-slot
+    name
+    type
+    map-write
+    map-read
+    map-read-delayed
+    hidden-read-slot
+    tags))				; for map-read-delayed, the binary value is stored here.
 
 (defmethod make-load-form ((object record-slot) &optional environment)
   (declare (ignore environment))