#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) }}}
#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 | -----------------------------------------------------+----------------------
Comment(by mevenson):
c.f. bugs.defgeneric.1 in http://trac.common- lisp.net/armedbear/browser/trunk/abcl/test/lisp/abcl/bugs.lisp
#270: Is BUGS.DEFEGENERIC.1 a valid test? -----------------------------------------------------+---------------------- Reporter: mevenson | Owner: rschlatte Type: defect | Status: assigned Priority: blocker | Milestone: 1.1.0 Component: (A)MOP | Version: 1.1.0-dev Keywords: defgeneric documentation needs-analysis | -----------------------------------------------------+---------------------- Changes (by rschlatte):
* owner: rschallate => rschlatte * status: new => assigned
Comment:
Looks valid: {{{ (defgeneric foo nil (:documentation "Foo")) (documentation 'foo 'function) => NIL (documentation (fdefinition 'foo) 'function) => "Foo" }}}
#270: Is BUGS.DEFEGENERIC.1 a valid test? -----------------------+---------------------------------------------------- Reporter: mevenson | Owner: rschlatte Type: defect | Status: closed Priority: blocker | Milestone: 1.1.0 Component: (A)MOP | Version: 1.1.0-dev Resolution: fixed | Keywords: defgeneric documentation needs-analysis -----------------------+---------------------------------------------------- Changes (by rschlatte):
* status: assigned => closed * resolution: => fixed
Comment:
(In [14254]) Fix (documentation symbol 'function) when symbol names a generic function
- fixes #270
armedbear-ticket@common-lisp.net
-
armedbear