diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index ff4fb76db52c2ac42beaeef15c722878d8396b39..752803abee70f1424c2e7177cb1339f9b2f37862 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -3014,4 +3014,60 @@ 3040851270 1664281 -1340106197) 0) +;;; sbcl 0.8.5.42 +;;; invalid number of arguments: 1 +;;; ("XEP for LABELS CL-TEST::%F10" ... + +(deftest misc.185 + (funcall + (compile + nil + '(lambda (a b c) + (declare (type (integer 5 155656586618) a)) + (declare (type (integer -15492 196529) b)) + (declare (type (integer 7 10) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (declare (optimize (debug 1))) + (flet ((%f3 + (f3-1 f3-2 f3-3 + &optional (f3-4 a) (f3-5 0) + (f3-6 + (labels ((%f10 (f10-1 f10-2 f10-3) + 0)) + (apply #'%f10 + 0 + a + (- (if (equal a b) b (%f10 c a 0)) + (catch 'ct2 (throw 'ct2 c))) + nil)))) + 0)) + (%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c)))) + 5 0 7) + 0) + +(deftest misc.185a + (funcall + (compile + nil + '(lambda (a b c) + (declare (type (integer -1304066 1995764) a)) + (declare (type (integer -52262604195 5419515202) b)) + (declare (type (integer -13 94521) c)) + (declare (optimize (speed 3))) + (declare (optimize (safety 1))) + (declare (optimize (debug 1))) + (flet ((%f13 (f13-1 f13-2 f13-3) + 0)) + (apply #'%f13 + (%f13 b 0 0) + (catch 729 0) + (catch 'ct2 (throw 'ct2 c)) + nil)))) + 0 0 0) + 0) + + + +