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