Added note about recent snapshots of CMUCL

[clg] / glib / pcl.lisp

diff --git a/glib/pcl.lisp b/glib/pcl.lisp
index cba663de49deccdfc176b39bcb1af3f02098a62e..334fc28a06d313c54aa44c06983d10a1c1fc1be0 100644 (file)
--- a/glib/pcl.lisp
+++ b/glib/pcl.lisp
@@ -24,7 +24,7 @@
 ;;;
 
 ;;; Modifications for better AMOP conformance
 ;;;
 
 ;;; Modifications for better AMOP conformance

-;;; Copyright (C) 2001 Espen S. Johnsen <esj@stud.cs.uit.no>
+;;; by Espen S. Johnsen <espen@users.sf.net>

 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)


@@ -36,10 +36,10 @@ (defstruct slot-info
   (name nil :type symbol)
   ;;
   ;; Specified slot allocation.or :INSTANCE.
   (name nil :type symbol)
   ;;
   ;; Specified slot allocation.or :INSTANCE.

-  (allocation :instance :type symbol)
+  (allocation :instance :type (or (member :class :instance) t))

   ;;
   ;; Specified slot type or T.
   ;;
   ;; Specified slot type or T.

-  (type t :type (or symbol list number)))
+  (type t :type (or symbol list)))

 
 
 (defmethod compute-slots :around ((class standard-class))
 
 
 (defmethod compute-slots :around ((class standard-class))


@@ -117,3 +117,5 @@ (defun update-slots (class eslotds)
        (update-pv-table-cache-info class)
        (maybe-update-standard-class-locations class)))))
 
        (update-pv-table-cache-info class)
        (maybe-update-standard-class-locations class)))))
 

+
+(pushnew :non-broken-pcl *features*)