294 |
"123") |
"123") |
295 |
|
|
296 |
(deftest merge-string.15 |
(deftest merge-string.15 |
297 |
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list) |
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv" |
298 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
299 |
(y (copy-seq "bci"))) |
(y (copy-seq "bci"))) |
300 |
(merge 'string x y #'char<)) |
(merge 'string x y #'char<)) |
301 |
"abcdgikm") |
"abcdgikm") |
302 |
|
|
303 |
(deftest merge-string.16 |
(deftest merge-string.16 |
304 |
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list) |
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv" |
305 |
:fill-pointer 5 :element-type 'character)) |
:fill-pointer 5 :element-type 'character)) |
306 |
(y (copy-seq "bci"))) |
(y (copy-seq "bci"))) |
307 |
(merge 'string y x #'char<)) |
(merge 'string y x #'char<)) |
308 |
"abcdgikm") |
"abcdgikm") |
309 |
|
|
310 |
(deftest merge-string.17 |
(deftest merge-string.17 |
311 |
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list) |
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv" |
312 |
:fill-pointer 5 :element-type 'character))) |
:fill-pointer 5 :element-type 'character))) |
313 |
(merge 'string nil x #'char<)) |
(merge 'string nil x #'char<)) |
314 |
"adgkm") |
"adgkm") |
315 |
|
|
316 |
(deftest merge-string.18 |
(deftest merge-string.18 |
317 |
(let* ((x (make-array '(10) :initial-contents (coerce "adgkmpruwv" 'list) |
(let* ((x (make-array '(10) :initial-contents "adgkmpruwv" |
318 |
:fill-pointer 5 :element-type 'character))) |
:fill-pointer 5 :element-type 'character))) |
319 |
(merge 'string x nil #'char<)) |
(merge 'string x nil #'char<)) |
320 |
"adgkm") |
"adgkm") |
435 |
#*011) |
#*011) |
436 |
|
|
437 |
(deftest merge-bit-vector.16 |
(deftest merge-bit-vector.16 |
438 |
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list) |
(let* ((x (make-array '(10) :initial-contents #*0001101010 |
439 |
:fill-pointer 5 :element-type 'bit)) |
:fill-pointer 5 :element-type 'bit)) |
440 |
(y (copy-seq #*001))) |
(y (copy-seq #*001))) |
441 |
(merge 'bit-vector x y #'<)) |
(merge 'bit-vector x y #'<)) |
442 |
#*00000111) |
#*00000111) |
443 |
|
|
444 |
(deftest merge-bit-vector.17 |
(deftest merge-bit-vector.17 |
445 |
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list) |
(let* ((x (make-array '(10) :initial-contents #*0001101010 |
446 |
:fill-pointer 5 :element-type 'bit)) |
:fill-pointer 5 :element-type 'bit)) |
447 |
(y (copy-seq #*001))) |
(y (copy-seq #*001))) |
448 |
(merge 'bit-vector y x #'<)) |
(merge 'bit-vector y x #'<)) |
449 |
#*00000111) |
#*00000111) |
450 |
|
|
451 |
(deftest merge-bit-vector.18 |
(deftest merge-bit-vector.18 |
452 |
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list) |
(let* ((x (make-array '(10) :initial-contents #*0001101010 |
453 |
:fill-pointer 5 :element-type 'bit))) |
:fill-pointer 5 :element-type 'bit))) |
454 |
(merge 'bit-vector nil x #'<)) |
(merge 'bit-vector nil x #'<)) |
455 |
#*00011) |
#*00011) |
456 |
|
|
457 |
(deftest merge-bit-vector.19 |
(deftest merge-bit-vector.19 |
458 |
(let* ((x (make-array '(10) :initial-contents (coerce #*0001101010 'list) |
(let* ((x (make-array '(10) :initial-contents #*0001101010 |
459 |
:fill-pointer 5 :element-type 'bit))) |
:fill-pointer 5 :element-type 'bit))) |
460 |
(merge 'bit-vector x nil #'<)) |
(merge 'bit-vector x nil #'<)) |
461 |
#*00011) |
#*00011) |