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