From a061845e46bc99e3e732a456294c1ccfb01e8463 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 13 Oct 2004 12:00:57 +0000 Subject: [PATCH] Two more tests for the sbcl 0.8.15.13 bug --- ansi-tests/misc.lsp | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 56311017..07b77557 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -8191,3 +8191,29 @@ Broken at C::WT-MAKE-CLOSURE. v5)))) 17) 17) + +(deftest misc.428 + (funcall + (compile + nil + '(lambda () + (declare (notinline -)) + (declare (optimize (compilation-speed 0) (safety 1) (speed 0) + (debug 2) (space 3))) + (let ((v10 (catch 'ct2 1))) + (declare (dynamic-extent v10)) + (- v10))))) + -1) + +(deftest misc.429 + (funcall + (compile + nil + '(lambda () + (declare (optimize (safety 1) (debug 1) (space 2) + (speed 2) (compilation-speed 1))) + (let ((v8 (let ((*s3* 0)) *s3*))) + (declare (dynamic-extent v8)) + (logandc1 v8 28))))) + 28) + -- GitLab