From 2c7d7f5720baf56cf6368fb8b863d61aadd11a07 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 8 Feb 2006 03:57:24 +0000
Subject: [PATCH] Another sbcl logbitp bug

---
 ansi-tests/misc.lsp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 5419db04..ed81b528 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)
-- 
GitLab