From 73ac2b227de0a77a388dba7ddef45435b5b2dd13 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 5 Sep 2003 13:01:07 +0000 Subject: [PATCH] Fixed another call-arguments-limit boundary error. --- ansi-tests/minus.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ansi-tests/minus.lsp b/ansi-tests/minus.lsp index 7853f525..6167571c 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) -- GitLab