From bb9caede5879f9842db4ac4a726c903100363db2 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 25 Oct 2003 22:12:27 +0000
Subject: [PATCH] Another sbcl bug.

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 7b40fafd..b8c74354 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -1314,3 +1314,18 @@
 			 b)))))
    2950453607 -4)
   -815145134)
+
+;;; Gives the error The value NIL is not of type INTEGER.  (in sbcl 0.8.4.40)
+
+(deftest misc.106
+  (progn
+    (eval '(defun misc.106-fn (a b c)
+	     (declare (optimize speed))
+	     (block b6
+	       (flet ((%f8 (f8-1 f8-2) b))
+		 (%f8 (%f8 c 338) (if t (return-from b6 a) c))))))
+    (misc.106-fn -30271 -1 -3043))
+  -30271)
+
+    
+
-- 
GitLab