0.pre7.14:

[sbcl.git] / src / code / ntrace.lisp

diff --git a/src/code/ntrace.lisp b/src/code/ntrace.lisp
index 56573c8..c1e5eeb 100644 (file)
--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -125,7 +125,8 @@
                (values (fdefinition x) t))))
        (function x)
        (t (values (fdefinition x) t)))
-    (if (sb-eval:interpreted-function-p res)
+    (if (or #+sb-interpreter (sb-eval:interpreted-function-p res)
+           nil)
        (values res named-p (if (sb-eval:interpreted-function-closure res)
                                :interpreted-closure :interpreted))
        (case (sb-kernel:get-type res)