Changeset 13555
- Timestamp:
- 09/02/11 21:58:23 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/make-load-form-saving-slots.lisp
r11391 r13555 41 41 (cond ((typep object 'structure-object) 42 42 (let ((index 0)) 43 (dolist (slot ( %class-slots class))43 (dolist (slot (mop:class-slots class)) 44 44 (let ((slot-name (dsd-name slot))) 45 45 (when (or (memq slot-name slot-names) … … 49 49 (incf index)))) 50 50 ((typep object 'standard-object) 51 (dolist (slot ( %class-slots class))51 (dolist (slot (mop:class-slots class)) 52 52 (let ((slot-name (%slot-definition-name slot))) 53 53 (when (or (memq slot-name slot-names)
Note: See TracChangeset
for help on using the changeset viewer.