From 0c8e9206810b8e872a1f5fc8080cf38ca8cb36c7 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 26 Apr 2006 23:47:32 +0000
Subject: [PATCH] Another random test failure for sbcl

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 4e55cc4b..161e4a65 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11353,3 +11353,19 @@ Broken at C::WT-MAKE-CLOSURE.
 			 (%f8 b)))))
     (funcall (compile nil form) :good 18 0))
   :good)
+
+;;; sbcl 0.9.11.45 (x86 linux)
+;;; Incorrect value: -32377322164
+
+(deftest misc.640
+  (let ((form '(lambda (b g)
+		 (declare (type (integer 303184 791836) b))
+		 (declare (optimize (compilation-speed 2) (debug 0) (space 1)
+				    (speed 1) (safety 2)))
+		 (loop for lv1 below 2
+		       sum (if (<= g lv1)
+			       (labels ((%f7 () (prog1 b 0))) (%f7))
+			     (setf g -16188661082))))))
+    (funcall (compile nil form) 335562 4655131896))
+  -16188325520)
+
-- 
GitLab