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

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index e5680f5..5ea1f53 100644
--- 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)))))