[armedbear-ticket] [armedbear] #270: Is BUGS.DEFEGENERIC.1 a valid test?

[armedbear]

#270: Is BUGS.DEFEGENERIC.1 a valid test?
-----------------------------------------------------+----------------------
 Reporter:  mevenson                                 |       Owner:  rschallate
     Type:  defect                                   |      Status:  new       
 Priority:  blocker                                  |   Milestone:  1.1.0     
Component:  (A)MOP                                   |     Version:  1.1.0-dev 
 Keywords:  defgeneric documentation needs-analysis  |  
-----------------------------------------------------+----------------------
 Should this fail?

 {{{
 (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)
 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/270>
armedbear <http://common-lisp.net/project/armedbear>
armedbear