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

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

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

revision 1.6 by pfdietz, Tue May 27 23:00:39 2003 UTC revision 1.7 by pfdietz, Sat Nov 29 01:56:11 2003 UTC
# Line 254  Line 254 
254  (deftest loop.1.49  (deftest loop.1.49
255    (loop for i from 1 to 5 for c upfrom #c(0 1) by 2 collect c)    (loop for i from 1 to 5 for c upfrom #c(0 1) by 2 collect c)
256    (#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1)))    (#c(0 1) #c(2 1) #c(4 1) #c(6 1) #c(8 1)))
257    
258    ;;; The variable in the loop for-as-arithmetic clause
259    ;;; can be a d-var-spec, so 'NIL' should mean don't bind anything
260    
261    (deftest loop.1.50
262      (let ((i 0))
263        (loop for nil from 10 to 15 collect (incf i)))
264      (1 2 3 4 5 6))
265    
266    (deftest loop.1.51
267      (let ((i 0))
268        (loop for nil from 10 below 15 collect (incf i)))
269      (1 2 3 4 5))
270    
271    (deftest loop.1.52
272      (loop for nil from 10 to 0 collect 'a)
273      nil)
274    
275    (deftest loop.1.53
276      (let ((i 0))
277        (loop for nil from 0 to 10 by 2 collect (incf i)))
278      (1 2 3 4 5 6))
279    
280    (deftest loop.1.54
281      (let ((i 0))
282        (loop for nil from 1 to 4
283              for nil from 1 to 10 collect (incf i)))
284      (1 2 3 4))
285    
286    (deftest loop.1.55
287      (let ((i 0))
288        (loop for nil from 5 downto 0 collect (incf i)))
289      (1 2 3 4 5 6))
290    
291    (deftest loop.1.56
292      (let ((i 0))
293        (loop for nil from 5 above 0 collect (incf i)))
294      (1 2 3 4 5))
295    
296    

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

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