diff --git a/ansi-tests/minus.lsp b/ansi-tests/minus.lsp index 7853f525aa6311976a6aaece71a4b2586d09c13a..6167571cfcd5ad0a8992fa884a1f76b840abbc10 100644 --- a/ansi-tests/minus.lsp +++ b/ansi-tests/minus.lsp @@ -122,7 +122,7 @@ (deftest subtract.3 (let ((args nil)) - (loop for i from 1 to (min 256 call-arguments-limit) + (loop for i from 1 to (min 256 (1- call-arguments-limit)) do (push 1 args) always (eql (apply #'- 1000 args) (- 1000 i)))) t)