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

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

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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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