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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sun Nov 17 03:33:17 2002 UTC revision 1.2 by pfdietz, Sun Nov 17 18:35:31 2002 UTC
# Line 94  Line 94 
94          counting x into foo          counting x into foo
95          collect foo)          collect foo)
96    (1 2 2 3 3 4))    (1 2 2 3 3 4))
97    
98    (deftest loop.10.14
99      (loop for x in '(a b c) count (return 10))
100      10)
101                    
102    
103  ;;; Tests of MAXIMIZE, MAXIMIZING  ;;; Tests of MAXIMIZE, MAXIMIZING
# Line 194  Line 198 
198    program-error)    program-error)
199    
200    
201    (deftest loop.10.39
202      (loop for x in '(1 2 3) maximize (return 10))
203      10)
204    
205  ;;; Tests of MINIMIZE, MINIMIZING  ;;; Tests of MINIMIZE, MINIMIZING
206    
207  (deftest loop.10.40  (deftest loop.10.40
# Line 291  Line 299 
299           finally (return foo)))           finally (return foo)))
300    program-error)    program-error)
301    
302    (deftest loop.10.58a
303      (loop for x in '(1 2 3) minimize (return 10))
304      10)
305    
306  ;;; Tests combining MINIMIZE, MAXIMIZE  ;;; Tests combining MINIMIZE, MAXIMIZE
307    
308  (deftest loop.10.59  (deftest loop.10.59
# Line 428  Line 440 
440          sum (float (1+ i)) into bar float          sum (float (1+ i)) into bar float
441          finally (return (values foo bar)))          finally (return (values foo bar)))
442    10 14.0)    10 14.0)
443    
444    (deftest loop.10.92
445      (loop for i from 1 to 4 sum (return 100))
446      100)
447    
448    (deftest loop.10.93
449      (loop for i from 1 to 4 summing (return 100))
450      100)

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

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