[armedbear-ticket] [armedbear] #270: Is BUGS.DEFEGENERIC.1 a valid test?
#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
#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 -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/270#comment:1> armedbear <http://common-lisp.net/project/armedbear> armedbear
#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" }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/270#comment:2> armedbear <http://common-lisp.net/project/armedbear> armedbear
#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 -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/270#comment:3> armedbear <http://common-lisp.net/project/armedbear> armedbear
participants (1)
-
armedbear