/[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.4 by pfdietz, Sat Jan 17 18:38:50 2004 UTC revision 1.5 by pfdietz, Thu Aug 26 11:24:21 2004 UTC
# Line 32  Line 32 
32    (#\a #\b #\c))    (#\a #\b #\c))
33    
34  (deftest loop.5.7  (deftest loop.5.7
35    (let ((x "abcd")) (loop for e across (the base-string x) collect e))    (let ((x (make-array '(4) :initial-elements "abcd" :element-type 'base-char)))
36        (loop for e across (the base-string x) collect e))
37    (#\a #\b #\c #\d))    (#\a #\b #\c #\d))
38    
39  (deftest loop.5.8  (deftest loop.5.8
40    (let ((x "abcd")) (loop for e of-type character across x collect e))    (let ((x "abcd")) (loop for e of-type character across x collect e))
41    (#\a #\b #\c #\d))    (#\a #\b #\c #\d))
42    
   
43  (deftest loop.5.10  (deftest loop.5.10
44    (let ((x #*00010110))    (let ((x #*00010110))
45      (loop for e across x collect e))      (loop for e across x collect e))

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

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