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)) |