0.pre7.14.flaky4.2:

[sbcl.git] / src / code / debug-int.lisp

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index c61ab78..a63c1ba 100644 (file)
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -967,9 +967,10 @@
 ;;; to replace FRAME. The interpreted frame points to FRAME.
 (defun possibly-an-interpreted-frame (frame up-frame)
   (if (or (not frame)
-         #!+sb-interpreter
-         (not (eq (debug-function-name (frame-debug-function frame))
-                  'sb!eval::internal-apply-loop))
+         #!+sb-interpreter (not (eq (debug-function-name (frame-debug-function
+                                                          frame))
+                                    'sb!eval::internal-apply-loop))
+         #!-sb-interpreter t
          *debugging-interpreter*
          (compiled-frame-escaped frame))
       frame