From 99f37096dac9938205fd7a8fdf97242adf34fb8a Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Mon, 25 Apr 2005 21:32:28 +0000
Subject: [PATCH] Made the definition of pcl::slot-info identical to the
 definition in the latest CMUCL source.

---
 glib/pcl.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/glib/pcl.lisp b/glib/pcl.lisp
index 72ebc49..334fc28 100644
--- a/glib/pcl.lisp
+++ b/glib/pcl.lisp
@@ -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)))
@@ -118,4 +118,4 @@
 	(maybe-update-standard-class-locations class)))))
 
 
-(pushnew :clg-pcl *features*)
+(pushnew :non-broken-pcl *features*)
-- 
2.11.0