From 9f00406980688e9c31229ef31fa1201aa2020644 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 18 Nov 2003 13:48:43 +0000
Subject: [PATCH] New acl bug involving catch, throw.

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 8aa3306b..dfe7c095 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -3185,3 +3185,21 @@
    0 0 0)
   0)
 
+;;; acl 6.2 (trial, x86)
+;;; Returns incorrect value
+
+(deftest misc.192
+  (funcall
+   (compile
+    nil
+    '(lambda (a b)
+       (declare (optimize (speed 3)))
+       (declare (optimize (safety 1)))
+       (declare (optimize (debug 1)))
+       (flet ((%f8 (f8-1 f8-2 f8-3) f8-2))
+	 (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a)))))))
+   1 2)
+  2)
+
+
+  
-- 
GitLab