/[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.2 by pfdietz, Sat Aug 2 18:35:19 2003 UTC revision 1.3 by pfdietz, Thu Aug 28 01:35:54 2003 UTC
# Line 167  Line 167 
167          until (>= i 6)          until (>= i 6)
168          finally (return i))          finally (return i))
169    6)    6)
170    
171    ;;; More tests of a bug that showed up in c.l.l
172    
173    (deftest loop.11.29
174      (loop for i in '(4 8 9 A 13)
175            when (eq i 'a) return :good
176            while (< i 12) collect i)
177      :good)
178    
179    (deftest loop.11.30
180      (loop for i in '(4 8 9 A 13)
181            unless (numberp i) return :good
182            while (< i 12) collect i)
183      :good)
184    
185    (deftest loop.11.31
186      (loop for i in '(4 8 9 A 13)
187            when (eq i 'a) return :good
188            until (> i 12) collect i)
189      :good)
190    
191    (deftest loop.11.32
192      (loop for i in '(4 8 9 A 13)
193            unless (numberp i) return :good
194            until (> i 12) collect i)
195      :good)
196    
197    
198    

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

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