X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Feval.impure.lisp;h=6900d74089bd8f068a11966e1f1ff1f2d1183a1a;hb=eca61f35572d371982ebb601d0edefe5c9a942ae;hp=bf9d484240625502484faa0abf089824960db262;hpb=040fd0ef5d0c759bc8d30952dfad2942bacb20f0;p=sbcl.git diff --git a/tests/eval.impure.lisp b/tests/eval.impure.lisp index bf9d484..6900d74 100644 --- a/tests/eval.impure.lisp +++ b/tests/eval.impure.lisp @@ -249,6 +249,7 @@ (simple-type-error () 'error))) t))) +#+sb-eval (with-test (:name :bug-524707) (let ((*evaluator-mode* :interpret) (lambda-form '(lambda (x) (declare (fixnum x)) (1+ x))))