- (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 (or (method-fast-function method)
- (method-function method))
- stream))))))
+ (format stream "~&It has no methods.~%")
+ (let ((gf-name (generic-function-name fun)))
+ (format stream "~&Its methods are:")
+ (dolist (method methods)
+ (format stream "~& (~A ~{~S ~}~:S)~%"
+ gf-name
+ (method-qualifiers method)
+ (unparse-specializers method))
+ (when (documentation method t)
+ (format stream "~& Method documentation: ~A"
+ (documentation method t))))))))