Changeset 15708
- Timestamp:
- 06/06/23 09:29:54 (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r15640 r15708 168 168 (define-class->%class-forwarder (setf class-direct-default-initargs)) 169 169 170 (declaim (notinline add-direct- ubclass remove-direct-subclass))170 (declaim (notinline add-direct-subclass remove-direct-subclass)) 171 171 (defun add-direct-subclass (superclass subclass) 172 172 (setf (class-direct-subclasses superclass)
Note: See TracChangeset
for help on using the changeset viewer.