X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-type.lisp;h=a3ec9c689eb1ac4fd3b44e35fed23ca935ced429;hb=416152f084604094445a758ff399871132dff2bd;hp=871cb84eb07de09894f52a11beb47e40af40a6a7;hpb=1513b29bfbe948e7b431b5f67f1ff10769c192cf;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index 871cb84..a3ec9c6 100644
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -129,8 +129,11 @@
 ;;; Pull the type specifier out of a function object.
 (defun extract-function-type (fun)
   (typecase fun
+    ;; FIXME: byte compiler to be deleted completely
+    #|
     (byte-function (byte-function-type fun))
     (byte-closure (byte-function-type (byte-closure-function fun)))
+    |#
     (t
      (specifier-type (%function-type (%closure-function fun))))))