/[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.2 by pfdietz, Mon Nov 11 04:27:16 2002 UTC revision 1.3 by pfdietz, Tue Jan 14 11:38:07 2003 UTC
# Line 116  Line 116 
116          sum e)          sum e)
117    6)    6)
118    
119    ;;; Loop across displaced vectors
120    
121    (deftest loop.5.36
122      (let* ((a (make-array '(10) :initial-contents '(a b c d e f g h i j)))
123             (da (make-array '(5) :displaced-to a
124                             :displaced-index-offset 2)))
125        (loop for e across da collect e))
126      (c d e f g))
127    
128    (deftest loop.5.37
129      (let* ((a (make-array '(10) :element-type 'base-char
130                            :initial-contents "abcdefghij"))
131             (da (make-array '(5) :element-type 'base-char
132                             :displaced-to a
133                             :displaced-index-offset 2)))
134        (loop for e across da collect e))
135      (#\c #\d #\e #\f #\g))
136    
137    (deftest loop.5.38
138      (let* ((a (make-array '(10) :element-type 'bit
139                            :initial-contents '(0 1 1 0 0 1 0 1 1 1)))
140             (da (make-array '(5) :element-type 'bit
141                             :displaced-to a
142                             :displaced-index-offset 2)))
143        (loop for e across da collect e))
144      (1 0 0 1 0))
145    
146    
147  ;;; Error cases  ;;; Error cases
148    
149  (deftest loop.5.error.1  (deftest loop.5.error.1
# Line 142  Line 170 
170             for e from 1 to 5 collect e)))             for e from 1 to 5 collect e)))
171    program-error)    program-error)
172    
   
   
   
   
   

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