(defun %describe-fun-name (name s type-spec)
(when (and name (typep name '(or symbol cons)))
(multiple-value-bind (type where)
(defun %describe-fun-name (name s type-spec)
(when (and name (typep name '(or symbol cons)))
(multiple-value-bind (type where)
(values (type-specifier (info :function :type name))
(info :function :where-from name))
(values type-spec :defined))
(values (type-specifier (info :function :type name))
(info :function :where-from name))
(values type-spec :defined))