[armedbear-cvs] r13609 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Sep 30 07:33:22 2011
New Revision: 13609

Log:
Test for DOCUMENTATION failing to access generic function docstring (#172).

Modified:
   trunk/abcl/test/lisp/abcl/bugs.lisp

Modified: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bugs.lisp	Fri Sep 30 07:18:04 2011	(r13608)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Fri Sep 30 07:33:22 2011	(r13609)
@@ -93,4 +93,16 @@
       result)
   "---(1 2 3 4)")
 
+(deftest bugs.defgeneric.1
+    (let ((symbol (gensym))
+          (docstring "Ipso est genericus")
+          result)
+      (eval `(defgeneric ,symbol nil
+                 (:documentation ,docstring)))
+      (setf result (documentation symbol 'function))
+      (fmakunbound symbol)
+      (string= result docstring))
+  t)
+
+
       
\ No newline at end of file