Changeset 11465


Ignore:
Timestamp:
Dec 4, 2008, 12:32:02 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos.lisp

    r11409 r11465  
    686686   (documentation nil doc-p)
    687687   (primary-p nil primary-p-p))
    688   (declare (ignore slot-names))
    689   (if direct-superclasses-p
     688  (if (or direct-superclasses-p (eq slot-names t))
    690689    (progn
    691690      (setq direct-superclasses
Note: See TracChangeset for help on using the changeset viewer.