/[gcl]/gcl/ansi-tests/plus.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/plus.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26