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

Fixed subtract.3, which was calling - with CALL-ARGUMENTS-LIMIT arguments

parent 71d68174
Branches
Tags
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 (1- call-arguments-limit)) (loop for i from 1 below (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