Commit 2e8328cc authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

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

parent 27f91391
...@@ -93,4 +93,16 @@ Subject: [armedbear-devel] Bug in translate-logical-pathname. ...@@ -93,4 +93,16 @@ Subject: [armedbear-devel] Bug in translate-logical-pathname.
result) result)
"---(1 2 3 4)") "---(1 2 3 4)")
(deftest bugs.defgeneric.1
(let ((symbol (gensym))
(docstring "Ipso est genericus")
(eval `(defgeneric ,symbol nil
(:documentation ,docstring)))
(setf result (documentation symbol 'function))
(fmakunbound symbol)
(string= result docstring))
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment