0.pre7.49:

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

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index e5680f5..5ea1f53 100644 (file)
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -23,17 +23,8 @@
           ((#.sb!vm:function-header-type #.sb!vm:closure-function-header-type)
            (%function-name x))
           (#.sb!vm:funcallable-instance-header-type
-           (typecase x
-             ;; FIXME: byte compiler to go away completely
-             #|
-             (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)))))