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

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

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

revision 1.1 by pfdietz, Mon Nov 11 04:27:16 2002 UTC revision 1.2 by pfdietz, Mon Nov 11 04:56:10 2002 UTC
# Line 132  Line 132 
132    (sort (loop for (nil . v) being the hash-values of *loop.6.hash.5* collect v)    (sort (loop for (nil . v) being the hash-values of *loop.6.hash.5* collect v)
133          #'symbol<)          #'symbol<)
134    (a2 b2 c2))    (a2 b2 c2))
135    
136    (deftest loop.6.19
137      (loop for nil being the hash-values of *loop.6.hash.5* count t)
138      3)
139    
140    (deftest loop.6.20
141      (loop for nil being the hash-keys of *loop.6.hash.5* count t)
142      3)
143    
144    (deftest loop.6.21
145      (loop for v being the hash-values of *loop.6.hash.5* using (hash-key nil) count t)
146      3)
147    
148    (deftest loop.6.22
149      (loop for k being the hash-keys of *loop.6.hash.5* using (hash-value nil) count t)
150      3)
151    
152    (deftest loop.6.23
153      (loop for v fixnum being the hash-values of *loop.6.hash.1* sum v)
154      6)
155    
156    (deftest loop.6.24
157      (loop for v of-type fixnum being the hash-values of *loop.6.hash.1* sum v)
158      6)
159    
160    
161    (deftest loop.6.25
162      (loop for k fixnum being the hash-keys of *loop.6.hash.5* sum k)
163      6)
164    
165    (deftest loop.6.26
166      (loop for k of-type fixnum being the hash-keys of *loop.6.hash.5* sum k)
167      6)
168    

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