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

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

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

revision 1.1 by pfdietz, Sun Nov 3 11:07:16 2002 UTC revision 1.2 by pfdietz, Mon Nov 11 04:27:16 2002 UTC
# Line 101  Line 101 
101      (loop for e across y collect e))      (loop for e across y collect e))
102    (b c d))    (b c d))
103    
104    ;;; tests of 'as' form
105    
106    (deftest loop.5.33
107      (loop as e across "abc" collect e)
108      (#\a #\b #\c))
109    
110    (deftest loop.5.34
111      (loop as e of-type character across "abc" collect e)
112      (#\a #\b #\c))
113    
114    (deftest loop.5.35
115      (loop as e of-type integer across (the simple-vector (coerce '(1 2 3) 'simple-vector))
116            sum e)
117      6)
118    
119  ;;; Error cases  ;;; Error cases
120    

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