From cc7f4b744e0b3eddb51a592c139b457007f99075 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 25 Sep 2003 02:34:30 +0000
Subject: [PATCH] Another sbcl bug test.

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 87fb06fa..fa7777a2 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -763,3 +763,16 @@
 		   (truncate (max (round a) c) (* (* a a) a))))
    -10 1000)
   -1 0)
+
+(deftest misc.57
+  (funcall
+   (compile nil '(lambda (a b c)
+                         (declare (type (integer -1907 58388940297) a)
+                                  (type (integer -646968358 294016) b)
+                                  (type (integer -708435313 89383896) c)
+                                  (optimize (speed 3) (safety 1) (debug 1)))
+                         (let ((v6 (abs (min a (signum c)))))
+                              (if (ceiling v6 (max 77 v6)) b 2))))
+   50005747335 -363030456 17382819)
+  -363030456)
+
-- 
GitLab