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