[armedbear-cvs] r13974 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sun Jun 17 05:55:18 2012
New Revision: 13974

Log:
Fix return value of (setf class-name)

- fixes ansi test setf-class-name.2

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Jun 17 05:46:30 2012	(r13973)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Jun 17 05:55:18 2012	(r13974)
@@ -2769,8 +2769,8 @@
 (redefine-class-forwarder class-name name)
 ;;; 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)
 (redefine-class-forwarder class-direct-slots direct-slots)