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