From: Lutz Euler <lutz.euler@freenet.de>
Date: Sat, 6 Oct 2012 16:56:19 +0000 (+0200)
Subject: Fix some tests for builds without sb-eval.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ad2b04d910cfc097712f19f05af9bb679ee17130;p=sbcl.git

Fix some tests for builds without sb-eval.

Conditionalize on #+SB-EVAL test parts that bind *EVALUATOR-MODE* to
:INTERPRET. The affected tests are:
- compiler.pure.lisp / :multiple-args-to-function
- eval.impure.lisp / (eval :empty-let-is-not-toplevel)
---

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index b28fe61..85d4d1c 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -3831,7 +3831,8 @@
 (with-test (:name :multiple-args-to-function)
   (let ((form `(flet ((foo (&optional (x 13)) x))
                  (funcall (function foo 42))))
-        (*evaluator-mode* :interpret))
+        #+sb-eval (*evaluator-mode* :interpret))
+    #+sb-eval
     (assert (eq :error
                 (handler-case (eval form)
                   (error () :error))))
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)