From a061845e46bc99e3e732a456294c1ccfb01e8463 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 13 Oct 2004 12:00:57 +0000
Subject: [PATCH] Two more tests for the sbcl 0.8.15.13 bug

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 56311017..07b77557 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -8191,3 +8191,29 @@ Broken at C::WT-MAKE-CLOSURE.
 	  v5))))
    17)
   17)
+
+(deftest misc.428
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (notinline -))
+       (declare	(optimize (compilation-speed 0) (safety 1) (speed 0)
+			  (debug 2) (space 3)))
+       (let ((v10 (catch 'ct2 1)))
+	 (declare (dynamic-extent v10))
+	 (- v10)))))
+  -1)
+
+(deftest misc.429
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (optimize (safety 1) (debug 1) (space 2)
+			  (speed 2) (compilation-speed 1)))
+       (let ((v8 (let ((*s3* 0)) *s3*)))
+	 (declare (dynamic-extent v8))
+	 (logandc1 v8 28)))))
+  28)
+
-- 
GitLab