diff --git a/ansi-tests/flet.lsp b/ansi-tests/flet.lsp index 4590f040f893cd11eac79302fd78dd8a83d09104..2e29e7e3cfd5c4c5a83307e2480d077ab2c85f32 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)))