From 10afe02c287b451e01e3988e66cb181297e04fbe Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 17 Oct 2003 02:53:19 +0000
Subject: [PATCH] Added two clisp bugs and a new cmucl bug.

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 76a473ea..61bd1adf 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -1068,3 +1068,26 @@
 		     156)))
    0)
   156)
+
+;;; Two tests showing bug(s) in clisp (2.31)
+(deftest misc.86
+  (funcall (compile nil '(lambda (b)
+			   (flet ((%f10 nil :bad))
+			     (let ((v7 (let ((v2 (%f10))) b)))
+			       (unwind-protect b)))))
+	   :good)
+  :good)
+
+(deftest misc.87
+  (apply (compile nil '(lambda (a b c)
+			 (let ((v9 a))
+			   (let ((v2 (setq v9 c)))
+			     (unwind-protect c)))))
+	 '(x y z))
+  z)
+
+(deftest misc.88
+  (eval '(block b3
+	   (max (return-from b3 1)
+		(if (unwind-protect (unwind-protect 2)) 3 4))))
+  1)
-- 
GitLab