From 1295091b73fbe6562f4a80369ae5e39a66f1ed24 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 21 Sep 2003 17:22:20 +0000
Subject: [PATCH] Fixed possible test bug.

---
 ansi-tests/loop13.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/loop13.lsp b/ansi-tests/loop13.lsp
index f8e65c25..a42f8d45 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))
-- 
GitLab