X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fcompiler.impure-cload.lisp;h=a1592a6bb929b8279073e51442dcea7bd8390ec1;hb=6053e7f804b430144bb09e2d107ad4ab3fb97db4;hp=09c0fb5a0cc7048111c840dc8a077055381892ff;hpb=b7cce43431d34a7ef27940fa1e47553d91e4a542;p=sbcl.git

diff --git a/tests/compiler.impure-cload.lisp b/tests/compiler.impure-cload.lisp
index 09c0fb5..a1592a6 100644
--- a/tests/compiler.impure-cload.lisp
+++ b/tests/compiler.impure-cload.lisp
@@ -182,5 +182,10 @@
            (min -7580
                 (max (logand a 31365125) d)))))
 
+;;; compiler failure "NIL is not of type LVAR"
+(defun #:foo (x)
+  (progn (truly-the integer x)
+         (1+ x)))
+
 
 (sb-ext:quit :unix-status 104)