From 94a9ebba6fae583c8da21eff9ede926754e255e2 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 13 Sep 2004 13:57:48 +0000 Subject: [PATCH] Added a test found by the random tester, apparently related to dynamic-extent hamdling in sbcl (AD just merged some changes related to that in 0.18.14.13). --- ansi-tests/misc.lsp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 50a5e362..df22db61 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -7418,3 +7418,21 @@ Broken at C::WT-C-INLINE-LOC. (boole boole-orc2 b (let ((*s3* (%f12 0))) -14))))) -173 1028908375 1289968133290) 1028908383) + +;;; sbcl 0.8.14.14 +;;; "The value NIL is not of type SB-C::LVAR" + +(deftest misc.391 + (funcall + (compile + nil + '(lambda (a b) + (declare (optimize (speed 2) (space 0) (safety 0) + (debug 1) (compilation-speed 3))) + (let* ((v5 (cons b b))) + (declare (dynamic-extent v5)) + a))) + 'x 'y) + x) + + -- GitLab