diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 8aa3306b2d8be4b333522f934789bcbd5b9a57e9..dfe7c09524835ef3018229d5a039fc5419ab58db 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -3185,3 +3185,21 @@ 0 0 0) 0) +;;; acl 6.2 (trial, x86) +;;; Returns incorrect value + +(deftest misc.192 + (funcall + (compile + nil + '(lambda (a b) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (declare (optimize (debug 1))) + (flet ((%f8 (f8-1 f8-2 f8-3) f8-2)) + (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a))))))) + 1 2) + 2) + + +