Changeset 13974

Timestamp:

06/17/12 12:55:18 (9 years ago)

Author:

rschlatte

Message:

Fix return value of (setf class-name)

• fixes ansi test setf-class-name.2

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -2770 +2770 @@
 ;;; AMOP pg. 230
 (redefine-class-forwarder (setf class-name) name
-   ((standard-class . (reinitialize-instance class :name new-value))
-    (funcallable-standard-class . (reinitialize-instance class :name new-value))))
+   ((standard-class . (progn (reinitialize-instance class :name new-value) new-value))
+    (funcallable-standard-class . (progn (reinitialize-instance class :name new-value) new-value))))
 (redefine-class-forwarder class-slots slots)
 (redefine-class-forwarder (setf class-slots) slots)