Changeset 12708


Ignore:
Timestamp:
Aug 28, 2009, 4:25:28 AM (9 years ago)
Author:
gb
Message:

In EXTRACT-INSTANCE-AND-CLASS-SLOTDS, ignore slot definitions with
allocation other than :CLASS or :INSTANCE (ticket:593).

File:
1 edited

Legend:

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

    r12045 r12708  
    4444            (shared-slots))
    4545    (dolist (s slotds (values (instance-slots) (shared-slots)))
    46       (if (eq (%slot-definition-allocation s) :class)
    47         (shared-slots s)
    48         (instance-slots s)))))
     46      (case (%slot-definition-allocation s)
     47        (:instance (instance-slots s))
     48        (:class (shared-slots s))))))
    4949
    5050
Note: See TracChangeset for help on using the changeset viewer.