Clearing stack allocated memory

[clg] / glib / pcl.lisp

diff --git a/glib/pcl.lisp b/glib/pcl.lisp
index 72ebc49c3226e4b3cb2b58e9f83169f315ae452b..334fc28a06d313c54aa44c06983d10a1c1fc1be0 100644 (file)
--- a/glib/pcl.lisp
+++ b/glib/pcl.lisp
@@ -36,7 +36,7 @@ (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.
   (type t :type (or symbol list)))
   ;;
   ;; Specified slot type or T.
   (type t :type (or symbol list)))


@@ -118,4 +118,4 @@ (defun update-slots (class eslotds)
        (maybe-update-standard-class-locations class)))))
 
 
        (maybe-update-standard-class-locations class)))))
 
 

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