From 10afe02c287b451e01e3988e66cb181297e04fbe Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 17 Oct 2003 02:53:19 +0000 Subject: [PATCH] Added two clisp bugs and a new cmucl bug. --- ansi-tests/misc.lsp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 76a473ea..61bd1adf 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -1068,3 +1068,26 @@ 156))) 0) 156) + +;;; Two tests showing bug(s) in clisp (2.31) +(deftest misc.86 + (funcall (compile nil '(lambda (b) + (flet ((%f10 nil :bad)) + (let ((v7 (let ((v2 (%f10))) b))) + (unwind-protect b))))) + :good) + :good) + +(deftest misc.87 + (apply (compile nil '(lambda (a b c) + (let ((v9 a)) + (let ((v2 (setq v9 c))) + (unwind-protect c))))) + '(x y z)) + z) + +(deftest misc.88 + (eval '(block b3 + (max (return-from b3 1) + (if (unwind-protect (unwind-protect 2)) 3 4)))) + 1) -- GitLab