Changeset 13609

Timestamp:

09/30/11 14:33:22 (12 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/test/lisp/abcl/bugs.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/bugs.lisp

@@ -94 +94 @@
   "---(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)
+
+