Changeset 13974
- Timestamp:
- 06/17/12 12:55:18 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r13973 r13974 2770 2770 ;;; AMOP pg. 230 2771 2771 (redefine-class-forwarder (setf class-name) name 2772 ((standard-class . ( reinitialize-instance class :namenew-value))2773 (funcallable-standard-class . ( reinitialize-instance class :namenew-value))))2772 ((standard-class . (progn (reinitialize-instance class :name new-value) new-value)) 2773 (funcallable-standard-class . (progn (reinitialize-instance class :name new-value) new-value)))) 2774 2774 (redefine-class-forwarder class-slots slots) 2775 2775 (redefine-class-forwarder (setf class-slots) slots)
Note: See TracChangeset
for help on using the changeset viewer.