From 8b09ab83d68701f66c3d41ba116f2aa25b64ba83 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 5 Nov 2003 02:41:33 +0000 Subject: [PATCH] Another sbcl test. --- ansi-tests/misc.lsp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 4fe86a09..78c1dd75 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -1983,3 +1983,24 @@ (%f6 -2 -108626545 (%f4)))))))))))) -6) 87246015) + +(deftest misc.153 + (funcall + (compile nil + '(lambda (a) + (if (logbitp 3 + (case -2 + ((-96879 -1035 -57680 -106404 -94516 -125088) + (unwind-protect 90309179)) + ((-20811 -86901 -9368 -98520 -71594) + (let ((v9 (unwind-protect 136707))) + (block b3 + (setq v9 + (let ((v4 (return-from b3 v9))) + (- (ignore-errors (return-from b3 v4)))))))) + (t -50))) + -20343 + a))) + 0) + -20343) + -- GitLab