Skip to content
Snippets Groups Projects
Commit 73ac2b22 authored by pfdietz's avatar pfdietz
Browse files

Fixed another call-arguments-limit boundary error.

parent c93f7842
No related branches found
No related tags found
No related merge requests found
......@@ -122,7 +122,7 @@
(deftest subtract.3
(let ((args nil))
(loop for i from 1 to (min 256 call-arguments-limit)
(loop for i from 1 to (min 256 (1- call-arguments-limit))
do (push 1 args)
always (eql (apply #'- 1000 args) (- 1000 i))))
t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment