Opened 12 years ago
Closed 12 years ago
#270 closed defect (fixed)
Is BUGS.DEFEGENERIC.1 a valid test?
Reported by: | Mark Evenson | Owned by: | rschlatte |
---|---|---|---|
Priority: | blocker | Milestone: | 1.1.0 |
Component: | (A)MOP | Version: | 1.1.0-dev |
Keywords: | defgeneric documentation needs-analysis | Cc: | |
Parent Tickets: |
Description
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)
Change History (3)
comment:1 Changed 12 years ago by
comment:2 Changed 12 years ago by
Owner: | changed from rschallate to rschlatte |
---|---|
Status: | new → assigned |
Looks valid:
(defgeneric foo nil (:documentation "Foo")) (documentation 'foo 'function) => NIL (documentation (fdefinition 'foo) 'function) => "Foo"
comment:3 Changed 12 years ago by
Resolution: | → fixed |
---|---|
Status: | assigned → closed |
Note: See
TracTickets for help on using
tickets.
c.f. bugs.defgeneric.1 in
http://trac.common-lisp.net/armedbear/browser/trunk/abcl/test/lisp/abcl/bugs.lisp