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 |
170 |
for e from 1 to 5 collect e))) |
for e from 1 to 5 collect e))) |
171 |
program-error) |
program-error) |
172 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|