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))