Changeset 12905


Ignore:
Timestamp:
Oct 4, 2009, 6:33:38 AM (15 years ago)
Author:
Gary Byers
Message:

EXTRACT-INSTANCE-CLASS-AND-OTHER-SLOTDS: actually return other-slots as a
third value, which was sort of the point ...

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r12762 r12905  
    4444            (shared-slots)
    4545            (other-slots))
    46     (dolist (s slotds (values (instance-slots) (shared-slots)))
     46    (dolist (s slotds (values (instance-slots) (shared-slots) (other-slots)))
    4747      (case (%slot-definition-allocation s)
    4848        (:instance (instance-slots s))
Note: See TracChangeset for help on using the changeset viewer.