234 |
"12345789") |
"12345789") |
235 |
|
|
236 |
(deftest merge-string.1a |
(deftest merge-string.1a |
237 |
(let ((x "1378") |
(let ((x (copy-seq "1378")) |
238 |
(y (list #\2 #\4 #\5 #\9))) |
(y (list #\2 #\4 #\5 #\9))) |
239 |
(merge 'string x y #'char<)) |
(merge 'string x y #'char<)) |
240 |
"12345789") |
"12345789") |
241 |
|
|
242 |
(deftest merge-string.1b |
(deftest merge-string.1b |
243 |
(let ((x (list #\1 #\3 #\7 #\8)) |
(let ((x (list #\1 #\3 #\7 #\8)) |
244 |
(y "2459")) |
(y (copy-seq "2459"))) |
245 |
(merge 'string x y #'char<)) |
(merge 'string x y #'char<)) |
246 |
"12345789") |
"12345789") |
247 |
|
|
248 |
(deftest merge-string.1c |
(deftest merge-string.1c |
249 |
(let ((x "1378") |
(let ((x (copy-seq "1378")) |
250 |
(y "2459")) |
(y (copy-seq "2459"))) |
251 |
(merge 'string x y #'char<)) |
(merge 'string x y #'char<)) |
252 |
"12345789") |
"12345789") |
253 |
|
|
254 |
(deftest merge-string.1d |
(deftest merge-string.1d |
255 |
(let ((x "1378") |
(let ((x (copy-seq "1378")) |
256 |
(y "2459")) |
(y (copy-seq "2459"))) |
257 |
(merge 'string y x #'char<)) |
(merge 'string y x #'char<)) |
258 |
"12345789") |
"12345789") |
259 |
|
|