0.pre7.24:

[sbcl.git] / src / compiler / target-disassem.lisp

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 8f30618..7a854dc 100644 (file)
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -771,7 +771,7 @@
        (string
         (write-string note stream))
        (function
-           (funcall note stream))))
+        (funcall note stream))))
       (terpri stream))
     (fresh-line stream)
     (setf (dstate-notes dstate) nil)))
@@ -1521,12 +1521,10 @@
             (and (listp thing)
                  (eq (car thing) 'setf)))
         (compiled-function-or-lose (fdefinition thing) thing))
-       ((sb!eval:interpreted-function-p thing)
-        (compile-function-lambda-expr thing))
        ((functionp thing)
         thing)
        ((and (listp thing)
-             (eq (car thing) 'sb!impl::lambda))
+             (eq (car thing) 'lambda))
         (compile nil thing))
        (t
         (error "can't make a compiled function from ~S" name))))
@@ -1543,14 +1541,14 @@
           (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 (typep fun 'sb!kernel:byte-function)
-       (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)))
-  nil))
+    (let ((fun (compiled-function-or-lose object)))
+      (if (typep fun 'sb!kernel:byte-function)
+         (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)))
+    nil))
 
 ;;; Disassembles the given area of memory starting at ADDRESS and
 ;;; LENGTH long. Note that if CODE-COMPONENT is NIL and this memory