#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) }}}