Changeset 13555


Ignore:
Timestamp:
09/02/11 21:58:23 (10 years ago)
Author:
ehuelsmann
Message:

Further check the sources for calls to %class-slots, changing to
MOP:CLASS-SLOTS -- because the latter supports non-standard meta classes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/make-load-form-saving-slots.lisp

    r11391 r13555  
    4141    (cond ((typep object 'structure-object)
    4242           (let ((index 0))
    43              (dolist (slot (%class-slots class))
     43             (dolist (slot (mop:class-slots class))
    4444               (let ((slot-name (dsd-name slot)))
    4545                 (when (or (memq slot-name slot-names)
     
    4949               (incf index))))
    5050          ((typep object 'standard-object)
    51            (dolist (slot (%class-slots class))
     51           (dolist (slot (mop:class-slots class))
    5252             (let ((slot-name (%slot-definition-name slot)))
    5353               (when (or (memq slot-name slot-names)
Note: See TracChangeset for help on using the changeset viewer.