(generic-function-pretty-arglist fun))
(let ((methods (generic-function-methods fun)))
(if (null methods)
(format stream "~&It has no methods.~%")
(let ((gf-name (generic-function-name fun)))
(generic-function-pretty-arglist fun))
(let ((methods (generic-function-methods fun)))
(if (null methods)
(format stream "~&It has no methods.~%")
(let ((gf-name (generic-function-name fun)))