diff --git a/ansi-tests/loop13.lsp b/ansi-tests/loop13.lsp index f8e65c253974a11f606e60b8ebbe4a0d881ae61a..a42f8d459e37f31db31cb74a51a10ed0342ae595 100644 --- a/ansi-tests/loop13.lsp +++ b/ansi-tests/loop13.lsp @@ -37,7 +37,8 @@ 1 2) (deftest loop.13.8 - (let* ((limit (min 1000 (1- multiple-values-limit))) + (let* ((limit (min 1000 (1- (min call-arguments-limit + multiple-values-limit)))) (vals (make-list limit :initial-element :a)) (vals2 (multiple-value-list (eval `(loop return (values ,@vals)))))) (equalt vals vals2))