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