From fff7fa5a96a9cd6520fd216baac7d8b72e8ff63e Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 8 Feb 2006 05:09:48 +0000 Subject: [PATCH] And yet another sbcl logbitp bug --- ansi-tests/misc.lsp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index ed81b528..8b3f988a 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) -- GitLab