Commit f0ec7e41 authored by pfdietz's avatar pfdietz
Browse files

More abcl failures

parent 6a71d064
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment