[Sbcl-commits] CVS: sbcl/tests interface.impure.lisp,1.16,1.17

[Nikodemus S. <de...@us...>]

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