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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Apr 21 16:00:59 2009
New Revision: 11775

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


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 16:00:59 2009
@@ -42,6 +42,8 @@
 					 'define-setf-expander
 					 :environment environment)
       `(progn
+         ,@(when doc
+             `((%set-documentation ',access-fn 'setf ,doc)))
          (setf (get ',access-fn 'setf-expander)
              #'(lambda (,whole ,environment)
                 , at local-decs