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