Changeset 12391
- Timestamp:
- 01/18/10 20:12:34 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r12191 r12391 521 521 (setf (class-direct-superclasses class) supers) 522 522 (dolist (superclass supers) 523 (push class (class-direct-subclasses superclass))))523 (pushnew class (class-direct-subclasses superclass)))) 524 524 (let ((slots (mapcar #'(lambda (slot-properties) 525 525 (apply #'make-direct-slot-definition class slot-properties))
Note: See TracChangeset
for help on using the changeset viewer.