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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26