;; scrubbing old data II: dangling forward references
;;
- ;; (This could happen if someone does PROCLAIM FTYPE in macroexpansion,
- ;; which is bad style, or at compile time, e.g. in EVAL-WHEN (:COMPILE)
- ;; inside something like DEFSTRUCT, in which case it's reasonable style.
- ;; Either way, it's no longer a free function.)
+ ;; (This could happen if someone executes PROCLAIM FTYPE at
+ ;; macroexpansion time, which is bad style, or at compile time, e.g.
+ ;; in EVAL-WHEN (:COMPILE) inside something like DEFSTRUCT, in which
+ ;; case it's reasonable style. Either way, NAME is no longer a free
+ ;; function.)
(when (boundp '*free-functions*) ; when compiling
(remhash name *free-functions*))
(symbol (values (info :variable :documentation x)))))
(function
(cond ((functionp x)
- (function-doc x))
+ (%fun-doc x))
((legal-fun-name-p x)
;; FIXME: Is it really right to make
;; (DOCUMENTATION '(SETF FOO) 'FUNCTION) equivalent to
(setf (info :setf :documentation x))
((t)
(typecase x
- (function (function-doc x))
+ (function (%fun-doc x))
(package (package-doc-string x))
(structure-class (values (info :type :documentation (class-name x))))
(symbol (try-cmucl-random-doc x doc-type))))