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