From 9f00406980688e9c31229ef31fa1201aa2020644 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 18 Nov 2003 13:48:43 +0000 Subject: [PATCH] New acl bug involving catch, throw. --- ansi-tests/misc.lsp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 8aa3306b..dfe7c095 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) + + + -- GitLab