From 5339eb8165dc4a4bb54ea95f7b26d8a2ea91aaff Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 14 Nov 2003 13:39:35 +0000
Subject: [PATCH] More cmucl, sbcl bugs.

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 6d115c3a..610a76de 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -1927,6 +1927,12 @@
    0)
   0)
 
+(deftest misc.149a
+  (funcall
+   (compile nil '(lambda (a) (block b1 (- a (ignore-errors (return-from b1 1))))))
+   0)
+  1)
+
 ;;; cmucl (11 2003 image)  "NIL is not of type C::CONTINUATION"
 (deftest misc.150
   (funcall
@@ -2357,3 +2363,39 @@
   1)
 
   
+;;;   segmentation violation at #XA4A0B59
+
+(deftest misc.172
+  (funcall
+   (compile
+    nil
+    '(lambda (a b c)
+       (declare (notinline list apply))
+       (declare (optimize (safety 3)))
+       (declare (optimize (speed 0)))
+       (declare (optimize (debug 0)))
+       (labels ((%f12 (f12-1 f12-2)
+		      (labels ((%f2 (f2-1 f2-2)
+				    (flet ((%f6 ()
+						(flet ((%f18
+							(f18-1
+							 &optional (f18-2 a)
+							 (f18-3 -207465075)
+							 (f18-4 a))
+							(return-from %f12 b)))
+						  (%f18 -3489553
+							-7
+							(%f18 (%f18 150 -64 f12-1)
+							      (%f18 (%f18 -8531)
+								    11410)
+							      b)
+							56362666))))
+				      (labels ((%f7
+						(f7-1 f7-2
+						      &optional (f7-3 (%f6)))
+						7767415))
+					f12-1))))
+			(%f2 b -36582571))))
+	 (apply #'%f12 (list 774 -4413)))))
+   0 1 2)
+  774)
-- 
GitLab