From 3099bb358238e1fc8af01c0b6f91819160ab3455 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 28 Mar 2006 15:07:51 +0000
Subject: [PATCH] Bug in compiled CEILING for sbcl 0.9.11.4

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 20c1620e..5adf2e83 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11282,3 +11282,17 @@ Broken at C::WT-MAKE-CLOSURE.
 		 (- -83659.0 (the (member 35182846) p2)))))
     (funcall (compile nil form) 35182846))
   #.(- -83659.0 35182846))
+
+;;; sbcl (x86 linux) 0.9.11.4
+;;; Different results
+
+(deftest misc.635
+  (let* ((form '(lambda (p2)
+		 (declare (optimize (speed 0) (safety 1)
+				    (debug 2) (space 2))
+			  (type (member -19261719) p2))
+		 (ceiling -46022.094 p2))))
+    (values (funcall (compile nil form) -19261719)))
+  1)
+
+  
\ No newline at end of file
-- 
GitLab