Changeset 11775


Ignore:
Timestamp:
04/21/09 20:00:59 (14 years ago)
Author:
ehuelsmann
Message:

Fix the remaining two DEFINE-SETF-EXPANDER tests (.6 and ??).

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r11774 r11775  
    4343           :environment environment)
    4444      `(progn
     45         ,@(when doc
     46             `((%set-documentation ',access-fn 'setf ,doc)))
    4547         (setf (get ',access-fn 'setf-expander)
    4648             #'(lambda (,whole ,environment)
Note: See TracChangeset for help on using the changeset viewer.