(defmethod describe-object ((fun standard-generic-function) stream)
(format stream "~&~A is a generic function." fun)
(when (documentation fun t)
(defmethod describe-object ((fun standard-generic-function) stream)
(format stream "~&~A is a generic function." fun)
(when (documentation fun t)