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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Apr 21 15:34:38 2009
New Revision: 11774

Log:
Fix DEFINE-SETF-EXPANDER.1 by returning the symbol passed in ACCESS-FN.


Modified:
   trunk/abcl/src/org/armedbear/lisp/late-setf.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/late-setf.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/late-setf.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/late-setf.lisp	Tue Apr 21 15:34:38 2009
@@ -41,10 +41,12 @@
 			 (parse-defmacro lambda-list whole body access-fn
 					 'define-setf-expander
 					 :environment environment)
-      `(setf (get ',access-fn 'setf-expander)
+      `(progn
+         (setf (get ',access-fn 'setf-expander)
              #'(lambda (,whole ,environment)
                 , at local-decs
-                (block ,access-fn ,body))))))
+                (block ,access-fn ,body)))
+         ',access-fn))))
 
 (define-setf-expander values (&rest places &environment env)
   (let ((setters ())