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