Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Sep 1 01:15:02 2003 UTC | revision 1.3 by pfdietz, Fri Sep 5 02:26:20 2003 UTC | |
---|---|---|
# | Line 103 | Line 103 |
103 | ||
104 | (deftest plus.8 | (deftest plus.8 |
105 | (let (args) | (let (args) |
106 | (loop for i from 0 to (min 256 call-arguments-limit) | (loop for i from 0 to (min 256 (1- call-arguments-limit)) |
107 | unless (eql (apply #'+ args) (/ (* i (1+ i)) 2)) | unless (eql (apply #'+ args) (/ (* i (1+ i)) 2)) |
108 | collect i | collect i |
109 | do (push (1+ i) args))) | do (push (1+ i) args))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |