Commit 0c3f1267 authored by pfdietz's avatar pfdietz
Browse files

Another abcl case.

parent 96ad237d
......@@ -7355,4 +7355,10 @@ Broken at C::WT-C-INLINE-LOC.
(compile nil '(lambda () (values (rationalize (catch 'ct1 1)) 2)))))
1 2)
(deftest misc.387
(let
#+armedbear ((jvm::*catch-errors* nil))
nil
(funcall
(compile nil '(lambda () (block b1 (catch 'ct1 (throw 'ct1 (return-from b1 0))))))))
0)
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