Changeset 11465 for trunk/source/level-1

Timestamp:

Dec 4, 2008, 12:32:02 PM (12 years ago)

Author:

gb

Message:

In the SHARED-INITIALIZE :AFTER method on SLOTS-CLASS, default the
DIRECT-SUPERCLASSES argument if the initarg is provided or if SLOT-NAMES
is T (the INITIALIZE-INSTANCE case).

File:

• trunk/source/level-1/l1-clos.lisp (modified) (1 diff)

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

@@ -686 +686 @@
    (documentation nil doc-p)
    (primary-p nil primary-p-p))
-  (declare (ignore slot-names))
-  (if direct-superclasses-p
+  (if (or direct-superclasses-p (eq slot-names t))
     (progn
       (setq direct-superclasses