188 |
(deftest map.fill.2 |
(deftest map.fill.2 |
189 |
(let ((s1 (make-array '(10) :initial-contents '(a b c d e f g h i j) |
(let ((s1 (make-array '(10) :initial-contents '(a b c d e f g h i j) |
190 |
:fill-pointer 8))) |
:fill-pointer 8))) |
191 |
(map 'list #'identity '(1 2 3 4 5 6 7 8 9 10) s1)) |
(map 'list #'(lambda (x y) x) '(1 2 3 4 5 6 7 8 9 10) s1)) |
192 |
(1 2 3 4 5 6 7 8)) |
(1 2 3 4 5 6 7 8)) |
193 |
|
|
194 |
(deftest map.fill.3 |
(deftest map.fill.3 |
202 |
(let ((s1 (make-array '(10) :initial-element #\a |
(let ((s1 (make-array '(10) :initial-element #\a |
203 |
:element-type 'base-char |
:element-type 'base-char |
204 |
:fill-pointer 8))) |
:fill-pointer 8))) |
205 |
(map 'list #'identity '(1 2 3 4 5 6 7 8 9 10) s1)) |
(map 'list #'(lambda (x y) x) '(1 2 3 4 5 6 7 8 9 10) s1)) |
206 |
(1 2 3 4 5 6 7 8)) |
(1 2 3 4 5 6 7 8)) |
207 |
|
|
208 |
(deftest map.fill.5 |
(deftest map.fill.5 |
216 |
(let ((s1 (make-array '(10) :initial-element 1 |
(let ((s1 (make-array '(10) :initial-element 1 |
217 |
:element-type 'bit |
:element-type 'bit |
218 |
:fill-pointer 8))) |
:fill-pointer 8))) |
219 |
(map 'list #'identity '(1 2 3 4 5 6 7 8 9 10) s1)) |
(map 'list #'(lambda (x y) x) '(1 2 3 4 5 6 7 8 9 10) s1)) |
220 |
(1 2 3 4 5 6 7 8)) |
(1 2 3 4 5 6 7 8)) |