- (format stream "Its methods are:")
- (dolist (method (generic-function-methods fun))
- (format stream "~2% ~{~S ~}~:S =>~%"
- (method-qualifiers method)
- (unparse-specializers method))
- (describe-object (or (method-fast-function method)
- (method-function method))
- stream))
+ (let ((methods (generic-function-methods fun)))
+ (if (null methods)
+ (format stream "It has no methods.~%")
+ (let ((gf-name (generic-function-name fun)))
+ (format stream "Its methods are:")
+ (dolist (method methods)
+ (format stream "~2% (~A ~{~S ~}~:S) =>~%"
+ gf-name
+ (method-qualifiers method)
+ (unparse-specializers method))
+ (describe-object (or (method-fast-function method)
+ (method-function method))
+ stream)))))