X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=e4c9acd9f6dda78701d62c2c09f2ac920f24f09c;hb=58a0e578e00abcb85940021d5ef3051c0b4c2082;hp=5ea1f53a68af19b28868bcf340cc9e9bcda39a07;hpb=dec94b039e8ec90baf21463df839a6181de606f6;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 5ea1f53..e4c9acd 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -17,14 +17,15 @@
 ;;; cobbled from stuff in describe.lisp.
 (defun function-doc (x)
   (let ((name
-	 (case (get-type x)
-	   (#.sb!vm:closure-header-type
-	    (%function-name (%closure-function x)))
-	   ((#.sb!vm:function-header-type #.sb!vm:closure-function-header-type)
-	    (%function-name x))
-	   (#.sb!vm:funcallable-instance-header-type
-	    (%function-name
-	     (funcallable-instance-function x))))))
+	 (case (widetag-of x)
+	   (#.sb!vm:closure-header-widetag
+	    (%simple-fun-name (%closure-fun x)))
+	   ((#.sb!vm:simple-fun-header-widetag
+	     #.sb!vm:closure-fun-header-widetag)
+	    (%simple-fun-name x))
+	   (#.sb!vm:funcallable-instance-header-widetag
+	    (%simple-fun-name
+	     (funcallable-instance-fun x))))))
     (when (and name (typep name '(or symbol cons)))
       (values (info :function :documentation name)))))
 
@@ -53,11 +54,11 @@
   #!+sb-doc "the value of LONG-SITE-NAME")
 (defun short-site-name ()
   #!+sb-doc
-  "Returns a string with the abbreviated site name, or NIL if not known."
+  "Return a string with the abbreviated site name, or NIL if not known."
   *short-site-name*)
 (defun long-site-name ()
   #!+sb-doc
-  "Returns a string with the long form of the site name, or NIL if not known."
+  "Return a string with the long form of the site name, or NIL if not known."
   *long-site-name*)
 
 ;;;; dribble stuff