Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |