(and generic-function
(generic-function-name generic-function))
(method-qualifiers method)
- (unparse-specializers method)))
+ (if generic-function
+ (unparse-specializers generic-function (method-specializers method))
+ (method-specializers method))))
;; FIXME: Why do we do CALL-NEXT-METHOD in this method (and
;; in the PRINT-OBJECT STANDARD-ACCESSOR-METHOD method too)?
(call-next-method))))
(and generic-function
(generic-function-name generic-function))
(accessor-method-slot-name method)
- (unparse-specializers method)))
+ (if generic-function
+ (unparse-specializers generic-function (method-specializers method))
+ (method-specializers method))))
(call-next-method))))
(defmethod print-object ((mc standard-method-combination) stream)
(multiple-value-bind (lines-used lines-total max-depth depth-limit)
(cache-statistics cache)
(format stream
- "~D key, ~P~:[no value~;value~], ~D/~D lines, depth ~D/~D"
+ "~D key~P, ~:[no value~;value~], ~D/~D lines, depth ~D/~D"
(cache-key-count cache)
(cache-key-count cache)
(cache-value cache)