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