From f0ec7e4120ac5c234d66f48f5511f0c6f2155f1e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 8 Jun 2004 02:37:58 +0000
Subject: [PATCH] More abcl failures

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index b44678ec..7f40a640 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7339,4 +7339,20 @@ Broken at C::WT-C-INLINE-LOC.
 	   (catch 'ct8 (throw 'ct8 (catch 'ct7 0)))))))
   0)
 
+(deftest misc.385
+  (let
+      #+armedbear ((jvm::*catch-errors* nil))
+      nil
+      (funcall
+       (compile nil '(lambda () (values 1 (catch 'ct2 2))))))
+  1 2)
+
+(deftest misc.386
+  (let
+      #+armedbear ((jvm::*catch-errors* nil))
+      nil
+      (funcall
+       (compile nil '(lambda () (values (rationalize (catch 'ct1 1)) 2)))))
+  1 2)
+
 
-- 
GitLab