X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Finfo-functions.lisp;h=2319a8304e2064224c3a743fc531a998f2bd34b2;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=cd5327f62e9b21abbb2f9c52a55a9e61478914d8;hpb=012fbee7176df4472ef4add1a7df558d762bc4f6;p=sbcl.git

diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp
index cd5327f..2319a83 100644
--- a/src/compiler/info-functions.lisp
+++ b/src/compiler/info-functions.lisp
@@ -55,10 +55,11 @@
 
   ;; 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*))
 
@@ -239,7 +240,7 @@
 	 (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
@@ -258,7 +259,7 @@
       (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))))