(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)
(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)