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