From: Nikodemus S. <de...@us...> - 2010-09-21 11:23:42
|
Update of /cvsroot/sbcl/sbcl/tests In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv10477/tests Modified Files: interface.impure.lisp Log Message: 1.0.42.49: fix (SETF DOCUMENTATION) for macros Fixes lp#643958. Patch Stas Boukarev, test-case by yours truly. Nice and simple, so going in mid-freeze. Index: interface.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/interface.impure.lisp,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- interface.impure.lisp 28 Jul 2009 17:41:39 -0000 1.16 +++ interface.impure.lisp 21 Sep 2010 11:23:33 -0000 1.17 @@ -247,5 +247,14 @@ (flet ((zoo () (gogo))) (defmethod gogo () nil) (describe 'gogo))) + +(defmacro bug-643958-test () + "foo" + :ding!) + +(with-test (:name :bug-643958) + (assert (equal "foo" (documentation 'bug-643958-test 'function))) + (setf (documentation 'bug-643958-test 'function) "bar") + (assert (equal "bar" (documentation 'bug-643958-test 'function)))) ;;;; success |