Changeset 13609


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/bugs.lisp

    r13607 r13609  
    9494  "---(1 2 3 4)")
    9595
     96(deftest bugs.defgeneric.1
     97    (let ((symbol (gensym))
     98          (docstring "Ipso est genericus")
     99          result)
     100      (eval `(defgeneric ,symbol nil
     101                 (:documentation ,docstring)))
     102      (setf result (documentation symbol 'function))
     103      (fmakunbound symbol)
     104      (string= result docstring))
     105  t)
     106
     107
    96108     
Note: See TracChangeset for help on using the changeset viewer.