From 1f6d35df9593d9ba0514432d7711cba78bc950e2 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 27 Jun 2005 02:47:05 +0000
Subject: [PATCH] Fix fencepost error in flet.20

---
 ansi-tests/flet.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/flet.lsp b/ansi-tests/flet.lsp
index 4590f040..2e29e7e3 100644
--- a/ansi-tests/flet.lsp
+++ b/ansi-tests/flet.lsp
@@ -151,8 +151,8 @@
 
 ;;; flet works with a large (maximal?) number of arguments
 (deftest flet.20
-  (let* ((n (min lambda-parameters-limit 1024))
-	 (vars (loop for i from 1 to n collect (gensym))))
+  (let* ((n (min (1- lambda-parameters-limit) 1024)))
+	 (vars (loop repeat n collect (gensym))))
     (eval
      `(eqlt ,n
 	    (flet ((%f ,vars (+ ,@ vars)))
-- 
GitLab