Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sat Jan 17 20:04:52 2004 UTC | revision 1.6 by pfdietz, Mon Nov 1 13:11:27 2004 UTC | |
---|---|---|
# | Line 122 | Line 122 |
122 | ||
123 | (deftest subtract.3 | (deftest subtract.3 |
124 | (let ((args nil)) | (let ((args nil)) |
125 | (loop for i from 1 to (min 256 (1- call-arguments-limit)) | (loop for i from 1 below (min 256 (1- call-arguments-limit)) |
126 | do (push 1 args) | do (push 1 args) |
127 | always (eql (apply #'- 1000 args) (- 1000 i)))) | always (eql (apply #'- 1000 args) (- 1000 i)))) |
128 | t) | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |