Changeset 11774


Ignore:
Timestamp:
04/21/09 19:34:38 (13 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/late-setf.lisp

    r11391 r11774  
    4242           'define-setf-expander
    4343           :environment environment)
    44       `(setf (get ',access-fn 'setf-expander)
     44      `(progn
     45         (setf (get ',access-fn 'setf-expander)
    4546             #'(lambda (,whole ,environment)
    4647                ,@local-decs
    47                 (block ,access-fn ,body))))))
     48                (block ,access-fn ,body)))
     49         ',access-fn))))
    4850
    4951(define-setf-expander values (&rest places &environment env)
Note: See TracChangeset for help on using the changeset viewer.