diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 5419db04bf4819b6f3234c28920bba72e10c6b13..ed81b52810052ca3831acb1e8d3b12a50458bdd6 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -11147,3 +11147,16 @@ Broken at C::WT-MAKE-CLOSURE. -2) 47119) +;;; failed AVER: "(<= Y 29)" + +(deftest misc.626 + (funcall + (compile + nil + '(lambda (a) + (declare (type (integer -902970 2) a)) + (declare (optimize (space 2) (debug 0) (compilation-speed 1) + (speed 0) (safety 3))) + (prog2 (if (logbitp 30 a) 0 (block b3 0)) a))) + -829253) + -829253)