0.pre7.55:

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

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 946c682..e70c868 100644 (file)
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -14,31 +14,17 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
-  "$Header$")
-
 ;;; 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))
+           (%simple-fun-name (%closure-fun x)))
+          ((#.sb!vm:simple-fun-header-type #.sb!vm:closure-fun-header-type)
+           (%simple-fun-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)))
-             (sb!eval:interpreted-function
-              (multiple-value-bind (exp closure-p dname)
-                  (sb!eval:interpreted-function-lambda-expression x)
-                (declare (ignore exp closure-p))
-                dname))
-             (t ;; funcallable-instance
-              (%function-name
-               (funcallable-instance-function x))))))))
+           (%simple-fun-name
+            (funcallable-instance-fun x))))))
     (when (and name (typep name '(or symbol cons)))
       (values (info :function :documentation name)))))
 
@@ -67,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
@@ -125,3 +111,6 @@
           (setf *standard-output* (third old-streams))
           (setf *error-output* (fourth old-streams)))))
   (values))
+
+(defun %byte-blt (src src-start dst dst-start dst-end)
+  (%byte-blt src src-start dst dst-start dst-end))