Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Fri Sep 5 11:55:24 2003 UTC | revision 1.4 by pfdietz, Fri Sep 5 13:01:07 2003 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 call-arguments-limit) | (loop for i from 1 to (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 |