Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Thu Aug 28 01:35:54 2003 UTC | revision 1.4 by pfdietz, Thu Aug 28 02:47:34 2003 UTC | |
---|---|---|
# | Line 194 | Line 194 |
194 | until (> i 12) collect i) | until (> i 12) collect i) |
195 | :good) | :good) |
196 | ||
197 | (deftest loop.11.33 | |
198 | (loop for i in '(4 8 9 A 13) | |
199 | if (not (numberp i)) return :good end | |
200 | while (< i 12) collect i) | |
201 | :good) | |
202 | ||
203 | (deftest loop.11.34 | |
204 | (loop for i in '(4 8 9 A 13) | |
205 | if (not (numberp i)) return :good end | |
206 | until (> i 12) collect i) | |
207 | :good) | |
208 | ||
209 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |