0.pre7.14:

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

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 8f30618..1473562 100644 (file)
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1521,6 +1521,7 @@
             (and (listp thing)
                  (eq (car thing) 'setf)))
         (compiled-function-or-lose (fdefinition thing) thing))
+       #!+sb-interpreter
        ((sb!eval:interpreted-function-p thing)
         (compile-function-lambda-expr thing))
        ((functionp thing)