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 @@ ...@@ -122,7 +122,7 @@
(deftest subtract.3 (deftest subtract.3
(let ((args nil)) (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) do (push 1 args)
always (eql (apply #'- 1000 args) (- 1000 i)))) always (eql (apply #'- 1000 args) (- 1000 i))))
t) t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment