125 |
(map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e)) |
(map '(simple-vector character) #'identity '(#\a #\b #\c #\d #\e)) |
126 |
"abcde") |
"abcde") |
127 |
|
|
128 |
|
;;; Use a more elaborate form of the simple-array type specifier |
129 |
(deftest map-string.31 |
(deftest map-string.31 |
130 |
(map '(simple-array character *) #'identity "abcde") |
(map '(simple-array character *) #'identity "abcde") |
131 |
"abcde") |
"abcde") |
132 |
|
|
133 |
|
;;; Use a more elaborate form of the simple-array type specifier |
134 |
(deftest map-string.32 |
(deftest map-string.32 |
135 |
(map '(simple-array character 5) #'identity "abcde") |
(map '(simple-array character 5) #'identity "abcde") |
136 |
"abcde") |
"abcde") |