Commit 7f39a2c1 authored by pfdietz's avatar pfdietz

Fix fencepost error in labels.20

parent 7e697634
......@@ -179,8 +179,8 @@
;;; labels works with the maximum number of arguments (if
;;; not too many.)
(deftest labels.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
(labels ((%f ,vars (+ ,@ vars)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment