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