[armedbear-cvs] r13555 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Sep  2 14:58:23 2011
New Revision: 13555

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/make-load-form-saving-slots.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/make-load-form-saving-slots.lisp	Fri Sep  2 01:33:43 2011	(r13554)
+++ trunk/abcl/src/org/armedbear/lisp/make-load-form-saving-slots.lisp	Fri Sep  2 14:58:23 2011	(r13555)
@@ -40,7 +40,7 @@
         (instance (gensym "INSTANCE-")))
     (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)
                            (null slot-names))
@@ -48,7 +48,7 @@
                      (push `(structure-set ,instance ,index ',value) inits))))
                (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)
                          (null slot-names))