Commit e8468c3a authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

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.
parent 4cebb83e
;;;;------------------------------------------------------------------
;;;;
;;;; 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.87 2003/12/11 11:28:21 frodef Exp $
;;;; $Id: binary-types.lisp,v 1.1.1.1 2004/01/13 11:13:13 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 @@ read are returned."
: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))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment