Opened 13 years ago

Closed 13 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:2 Changed 13 years ago by rschlatte

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 13 years ago by rschlatte

Resolution: → fixed
Status: assigned → closed

(In [14254]) Fix (documentation symbol 'function) when symbol names a generic function

Note: See TracTickets for help on using tickets.