diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 50a5e3625361861c47a63362fdde981c73a88d3a..df22db61958f1c16a3e6ea007b0126595faed6a9 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) + +