/[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.7 by pfdietz, Sat Aug 28 22:05:54 2004 UTC revision 1.8 by pfdietz, Sat Aug 28 22:07:41 2004 UTC
# Line 176  Line 176 
176            for v = (make-array '(10) :initial-contents fvals :element-type type)            for v = (make-array '(10) :initial-contents fvals :element-type type)
177            for r = (loop for x across v collect x)            for r = (loop for x across v collect x)
178            unless (equal r fvals)            unless (equal r fvals)
179            collect (list i r)))            collect (list fvals r)))
180    nil)    nil)
181    
182  (deftest loop.5.43  (deftest loop.5.43
# Line 187  Line 187 
187            for v = (make-array '(10) :initial-contents fvals :element-type type)            for v = (make-array '(10) :initial-contents fvals :element-type type)
188            for r = (loop for x across v collect x)            for r = (loop for x across v collect x)
189            unless (equal r fvals)            unless (equal r fvals)
190            collect (list i r)))            collect (list fvals r)))
191    nil)    nil)
192    
193  ;;; Error cases  ;;; Error cases

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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