From f50ee5227c08ea621b24b64e90c7221f5470e54f Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 9 May 2004 20:43:26 +0000
Subject: [PATCH] Another sbcl bug (NIL is not of type SB-C::IR2-LVAR)
 (misc.107a)

---
 ansi-tests/misc.lsp | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 82f53415..5c611909 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -1363,6 +1363,34 @@
    22992834060 -5833)
   82674 0)
 
+;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.10.15)
+(deftest misc.107a
+  (funcall
+   (compile
+    nil
+    '(lambda (a b c d e f)
+       (declare (type (integer -28935194591 -20563088996) a))
+       (declare (type (integer -186827260167 31523) b))
+       (declare (type (integer -1065761318 945248348) c))
+       (declare (type (integer -5411779845588 -3063178248148) d))
+       (declare (type (integer -1656994 3808683) e))
+       (declare (type (integer -789320 850746504) f))
+       (declare (ignorable a b c d e f))
+       (declare
+	(optimize (speed 2)
+		  (space 0)
+		  (safety 1)
+		  (debug 3)
+		  (compilation-speed 0)))
+       (flet ((%f14
+	       (f14-1
+		&optional (f14-2 (rationalize (catch 'ct4 0))) (f14-3 0)
+		(f14-4 0))
+	       (dotimes (iv2 0 0) (progn f14-2))))
+	 (apply #'%f14 0 0 0 nil))))
+   -25038256175 -100350952205 18860285 -4163099272623 -794421 38358082)
+  0)
+
 ;;; cmucl bug (Argument X is not a NUMBER: NIL)
 
 (deftest misc.108
-- 
GitLab