(defun %describe-fun-name (name s type-spec)
(when (and name (typep name '(or symbol cons)))
(multiple-value-bind (type where)
- (if (or (symbolp name) (and (listp name) (eq (car name) 'setf)))
+ (if (legal-fun-name-p name)
(values (type-specifier (info :function :type name))
(info :function :where-from name))
(values type-spec :defined))
;; * NIL, in which case there's nothing to see here, move along.
(when (eq (info :type :kind x) :defined)
(format s "~@:_It names a type specifier."))
- (let ((symbol-named-class (cl:find-class x nil)))
+ (let ((symbol-named-class (find-classoid x nil)))
(when symbol-named-class
(format s "~@:_It names a class ~A." symbol-named-class)
(describe symbol-named-class s))))