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

diff --git a/tests/eval.impure.lisp b/tests/eval.impure.lisp
index f70216c..d50708e 100644
--- a/tests/eval.impure.lisp
+++ b/tests/eval.impure.lisp
@@ -226,7 +226,7 @@
 (with-test (:name :toplevel-declare)
   (assert (raises-error? (eval '(declare (type pathname *scratch*))))))
 
-(with-test (:name (eval no-compiler-notes))
+(with-test (:name (eval :no-compiler-notes))
   (handler-bind ((sb-ext:compiler-note #'error))
     (let ((sb-ext:*evaluator-mode* :compile))
       (eval '(let ((x 42))
@@ -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)