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

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

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

revision 1.1 by pfdietz, Sat Oct 26 19:44:17 2002 UTC revision 1.2 by pfdietz, Sun Oct 27 01:12:48 2002 UTC
# Line 56  Line 56 
56          collect (+ x y))          collect (+ x y))
57    (3 7 11))    (3 7 11))
58    
59  (deftest loop.2.10  (deftest loop.2.11
60    (loop for (x y) of-type fixnum in '((1 2) (3 4) (5 6))    (loop for (x y) of-type fixnum in '((1 2) (3 4) (5 6))
61          collect (+ x y))          collect (+ x y))
62    (3 7 11))    (3 7 11))
63    
64  (deftest loop.2.11  (deftest loop.2.12
65    (loop for (x y) of-type (fixnum fixnum) in '((1 2) (3 4) (5 6))    (loop for (x y) of-type (fixnum fixnum) in '((1 2) (3 4) (5 6))
66          collect (+ x y))          collect (+ x y))
67    (3 7 11))    (3 7 11))
68    
69    
70  (deftest loop.2.11  (deftest loop.2.13
71    (loop for (x . y) of-type (fixnum . fixnum) in '((1 . 2) (3 . 4) (5 . 6))    (loop for (x . y) of-type (fixnum . fixnum) in '((1 . 2) (3 . 4) (5 . 6))
72          collect (+ x y))          collect (+ x y))
73    (3 7 11))    (3 7 11))
74    
75  (deftest loop.2.12  (deftest loop.2.14
76    (classify-error    (classify-error
77     (loop for x in '(a b c)     (loop for x in '(a b c)
78           for x in '(d e f) collect x))           for x in '(d e f) collect x))
79    programm-error)    programm-error)
80    
81  (deftest loop.2.13  (deftest loop.2.15
82    (classify-error    (classify-error
83     (loop for (x . x) in '((a b) (c d)) collect x))     (loop for (x . x) in '((a b) (c d)) collect x))
84    programm-error)    programm-error)
85    
86  (deftest loop.2.14  (deftest loop.2.16
87    (loop for nil in nil do (return t))    (loop for nil in nil do (return t))
88    nil)    nil)
89    

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