Changeset 644

Timestamp:

Mar 8, 2004, 5:59:08 AM (21 years ago)

Author:

Gary Byers

Message:

SLOTS-CLASS has to look for primary-p-ness.

File:

• trunk/ccl/level-1/l1-clos.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-clos.lisp

@@ -426 +426 @@
   (error "Class ~s can't be finalized." class))
 
-(defmethod class-primary-p ((class std-class))
+(defmethod class-primary-p ((class slots-class))
   (%class-primary-p class))
 
@@ -464 +464 @@
                   (unless (eq (%slot-definition-name (car sup-slotds))
                               (%slot-definition-name (car primary-slotds)))
+                    (format t "~&name of sup-slotds = ~s, name of prim = ~s"
+                            (%slot-definition-name (car sup-slotds))
+                            (%slot-definition-name (car primary-slotds)))
                     (error "While initializing ~s:~%~
                             attempt to mix incompatible primary classes:~%~