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

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

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

revision 1.1 by pfdietz, Mon Oct 28 04:50:59 2002 UTC revision 1.2 by pfdietz, Sun Nov 3 11:07:16 2002 UTC
# Line 18  Line 18 
18     for j = (1+ i) collect j)     for j = (1+ i) collect j)
19    (2 3 4 5 6 7 8 9 10 11))    (2 3 4 5 6 7 8 9 10 11))
20    
21    (deftest loop.4.3
22      (loop
23       for i from 1 to 10
24       for j of-type integer = (1+ i) collect j)
25      (2 3 4 5 6 7 8 9 10 11))
26    
27    (deftest loop.4.4
28      (loop for e on '(a b c d e)
29            for (x . y) = e
30            collect x)
31      (a b c d e))
32    
33    (deftest loop.4.5
34      (loop for (x . y) = '(a b c d e) then y
35            while x
36            collect x)
37      (a b c d e))
38    
39    ;;; Error cases
40    
41    (deftest loop.4.6
42      (classify-error
43       (loop for (x . x) = '(nil nil nil)
44             until x count t))
45      program-error)
46    
47    (deftest loop.4.7
48      (classify-error*
49       (macroexpand '(loop for (x . x) = '(nil nil nil)
50                           until x count t)))
51      program-error)
52    
53    (deftest loop.4.8
54      (classify-error*
55       (macroexpand '(loop for x = '(nil nil nil)
56                           for x = 1 count x until t)))
57      program-error)

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