0.pre7.50:

[sbcl.git] / src / code / target-misc.lisp

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 98e818a..00615ac 100644 (file)
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -23,14 +23,8 @@
           ((#.sb!vm:function-header-type #.sb!vm:closure-function-header-type)
            (%function-name x))
           (#.sb!vm:funcallable-instance-header-type
-           (typecase x
-             (byte-function
-              (sb!c::byte-function-name x))
-             (byte-closure
-              (sb!c::byte-function-name (byte-closure-function x)))
-             (t ;; funcallable-instance
-              (%function-name
-               (funcallable-instance-function x))))))))
+           (%function-name
+            (funcallable-instance-function x))))))
     (when (and name (typep name '(or symbol cons)))
       (values (info :function :documentation name)))))
 
@@ -59,11 +53,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*)
 \f
 ;;;; dribble stuff