X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Feval.impure.lisp;h=6900d74089bd8f068a11966e1f1ff1f2d1183a1a;hb=f16e93459cd73b1884e3d576c95e422f8e8a000e;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))))