X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Ftarget-disassem.lisp;h=d3544ae1637ebf9fe74f84f5d6ca0e1a7207c15b;hb=dec94b039e8ec90baf21463df839a6181de606f6;hp=1fb8c870e22346bf772e6ce772829bc04fc714ba;hpb=772659782631839f87fe059a45ecb28b933e298b;p=sbcl.git

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 1fb8c87..d3544ae 100644
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1533,7 +1533,7 @@
 			   (stream *standard-output*)
 			   (use-labels t))
   #!+sb-doc
-  "Disassemble the machine code associated with OBJECT, which can be a
+  "Disassemble the compiled code associated with OBJECT, which can be a
   function, a lambda expression, or a symbol with a function definition. If
   it is not already compiled, the compiler is called to produce something to
   disassemble."
@@ -1541,13 +1541,9 @@
 	   (type (or (member t) stream) stream)
 	   (type (member t nil) use-labels))
   (pprint-logical-block (*standard-output* nil :per-line-prefix "; ")
-    (let ((fun (compiled-function-or-lose object)))
-      (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)
-				:stream stream
-				:use-labels use-labels)))
+    (disassemble-function (compiled-function-or-lose object)
+			  :stream stream
+			  :use-labels use-labels)
     nil))
 
 ;;; Disassembles the given area of memory starting at ADDRESS and