0.pre7.14:

[sbcl.git] / src / compiler / ir1tran.lisp

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 4e1bd73..6c6cbe7 100644 (file)
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -2035,7 +2035,8 @@
                  deprecated-names)))
 
   (let* ((do-eval (and (intersection '(compile :compile-toplevel) situations)
-                      (not sb!eval::*already-evaled-this*)))
+                      #!+sb-interpreter (not sb!eval::*already-evaled-this*)))
+        #!+sb-interpreter
         (sb!eval::*already-evaled-this* t))
     (when do-eval