Fixed build problem with SBCL 0.9.11
[clg] / glib / pcl.lisp
index 72ebc49..334fc28 100644 (file)
@@ -36,7 +36,7 @@
   (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)))
        (maybe-update-standard-class-locations class)))))
 
 
-(pushnew :clg-pcl *features*)
+(pushnew :non-broken-pcl *features*)