X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Feval.impure.lisp;h=392b22492b354b1b0988dfa08ad60e5c156af841;hb=3641e3c73615bffcdd9c014e6663d80935e985ef;hp=f70216c321a97350844e022e035ae9c5861e181b;hpb=04a651e749befd65ffd8bf49f689b6e7d55607e2;p=sbcl.git

diff --git a/tests/eval.impure.lisp b/tests/eval.impure.lisp
index f70216c..392b224 100644
--- a/tests/eval.impure.lisp
+++ b/tests/eval.impure.lisp
@@ -272,6 +272,7 @@
     (assert (eq :fun (empty-let-is-not-toplevel-fun))))
   ;; While at it, test that we get the late binding under
   ;; interpreter mode.
+  #+sb-eval
   (let ((sb-ext:*evaluator-mode* :interpret))
     (eval `(let ()
              (defmacro empty-let-is-not-toplevel-x () :macro)