194 |
(concatenate '(array nil (*))) |
(concatenate '(array nil (*))) |
195 |
"") |
"") |
196 |
|
|
197 |
|
(deftest concatenate.33 |
198 |
|
(do-special-strings |
199 |
|
(s "abc" nil) |
200 |
|
(assert (string= (concatenate 'string s s s) "abcabcabc")) |
201 |
|
(assert (string= (concatenate 'string "xy" s) "xyabc")) |
202 |
|
(assert (string= (concatenate 'simple-string s "z" s "w" s) "abczabcwabc")) |
203 |
|
(assert (string= (concatenate 'base-string s "z" s "w" s) "abczabcwabc")) |
204 |
|
(assert (string= (concatenate 'simple-base-string s "z" s "w" s) "abczabcwabc")) |
205 |
|
(assert (string= (concatenate '(vector character) s "z" s "w" s) "abczabcwabc"))) |
206 |
|
nil) |
207 |
|
|
208 |
(deftest concatenate.order.1 |
(deftest concatenate.order.1 |
209 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |
210 |
(values |
(values |