diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index ed81b52810052ca3831acb1e8d3b12a50458bdd6..8b3f988a9d48ce6e4b30cf1d54165a614b0117f1 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -11160,3 +11160,17 @@ Broken at C::WT-MAKE-CLOSURE. (prog2 (if (logbitp 30 a) 0 (block b3 0)) a))) -829253) -829253) + +;;; Wrong return value + +(deftest misc.627 + (funcall + (compile + nil + '(lambda () + (declare (notinline logbitp)) + (declare (optimize (safety 0) (debug 1) (compilation-speed 2) + (speed 0) (space 2))) + (loop for lv1 below 1 + count (logbitp 7 (loop for lv1 below 0 count t)))))) + 1)