diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 7b40fafdd76f064a44a63ecc19338beec7c7cf11..b8c7435475ad4bed679f1f23eb1d58788b7ba6b9 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) + + +