Changeset 13555

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:

• trunk/abcl/src/org/armedbear/lisp/make-load-form-saving-slots.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/make-load-form-saving-slots.lisp

@@ -41 +41 @@
     (cond ((typep object 'structure-object)
            (let ((index 0))
-             (dolist (slot (%class-slots class))
+             (dolist (slot (mop:class-slots class))
                (let ((slot-name (dsd-name slot)))
                  (when (or (memq slot-name slot-names)
@@ -49 +49 @@
                (incf index))))
           ((typep object 'standard-object)
-           (dolist (slot (%class-slots class))
+           (dolist (slot (mop:class-slots class))
              (let ((slot-name (%slot-definition-name slot)))
                (when (or (memq slot-name slot-names)