/[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.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)

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

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