Changeset 11774

Timestamp:

04/21/09 19:34:38 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/late-setf.lisp (modified) (1 diff)

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

@@ -42 +42 @@
            'define-setf-expander
            :environment environment)
-      `(setf (get ',access-fn 'setf-expander)
+      `(progn
+         (setf (get ',access-fn 'setf-expander)
              #'(lambda (,whole ,environment)
                 ,@local-decs
-                (block ,access-fn ,body))))))
+                (block ,access-fn ,body)))
+         ',access-fn))))
 
 (define-setf-expander values (&rest places &environment env)