X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-disassem.lisp;h=1fb8c870e22346bf772e6ce772829bc04fc714ba;hb=416152f084604094445a758ff399871132dff2bd;hp=7a854dc0c85f7881d9715543bc7f9150432e329b;hpb=1513b29bfbe948e7b431b5f67f1ff10769c192cf;p=sbcl.git

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 7a854dc..1fb8c87 100644
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1542,7 +1542,7 @@
 	   (type (member t nil) use-labels))
   (pprint-logical-block (*standard-output* nil :per-line-prefix "; ")
     (let ((fun (compiled-function-or-lose object)))
-      (if (typep fun 'sb!kernel:byte-function)
+      (if nil #|(typep fun 'sb!kernel:byte-function)|# ; FIXME: byte compile to go away completely
 	  (sb!c:disassem-byte-fun fun)
 	  ;; We can't detect closures, so be careful.
 	  (disassemble-function (fun-self fun)