Update of /project/movitz/cvsroot/binary-types In directory common-lisp.net:/tmp/cvs-serv15098
Modified Files: binary-types.lisp Log Message: If you get this complaint from PCL:
non-symbol and non-interned symbol slot name accessorsare not yet implemented
you can set *ignore-hidden-slots-for-pcl* to true. This will disable a certain feature in a quite crude way, but it's not really a feature required to get Movitz going. Newer versions of PCL don't have this misfeature, it seems, so do update.
Date: Thu Jan 15 08:18:29 2004 Author: ffjeld
Index: binary-types/binary-types.lisp diff -u binary-types/binary-types.lisp:1.1.1.1 binary-types/binary-types.lisp:1.2 --- binary-types/binary-types.lisp:1.1.1.1 Tue Jan 13 06:13:13 2004 +++ binary-types/binary-types.lisp Thu Jan 15 08:18:29 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 200120001999, 2003, +;;;; Copyright (C) 200120001999, 2003-2004, ;;;; Department of Computer Science, University of Tromsø, Norway ;;;; ;;;; Filename: binary-types.lisp @@ -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.1.1.1 2004/01/13 11:13:13 ffjeld Exp $ +;;;; $Id: binary-types.lisp,v 1.2 2004/01/15 13:18:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -68,6 +68,10 @@
(in-package binary-types)
+(defvar *ignore-hidden-slots-for-pcl* nil + "Really ugly hack to allow older PCL-infested lisps to work in the +precense of :map-binary-read-delayed.") + (defvar *binary-write-byte* #'common-lisp:write-byte "The low-level WRITE-BYTE function used by binary-types.") (defvar *binary-read-byte* #'common-lisp:read-byte @@ -611,7 +615,8 @@ :hidden-read-slot ',hidden-read-slot-name :tags ',tags) binslot-forms) - (when hidden-read-slot-name + (when (and hidden-read-slot-name + (not *ignore-hidden-slots-for-pcl*)) (push (list hidden-read-slot-name slot-name map-read-delayed bintype) hidden-slots)) (push bintype binslot-types))))