diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index b44678ec4ea61358f3ca2f8d97161ffd1b222e5d..7f40a64009bde3ac3bf41db4051c2429ab77938c 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) +