(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))
(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)