404 |
:displaced-to a |
:displaced-to a |
405 |
:displaced-index-offset 10)) |
:displaced-index-offset 10)) |
406 |
#*) |
#*) |
407 |
|
|
408 |
|
(deftest make-array.displaced.11 |
409 |
|
(let ((a (make-array '(10) :element-type 'base-char |
410 |
|
:initial-contents "abcdefghij"))) |
411 |
|
(make-array-with-checks '(5) :element-type 'base-char |
412 |
|
:displaced-to a)) |
413 |
|
"abcde") |
414 |
|
|
415 |
|
(deftest make-array.displaced.12 |
416 |
|
(let ((a (make-array '(10) :element-type 'base-char |
417 |
|
:initial-contents "abcdefghij"))) |
418 |
|
(loop for i from 0 to 5 collect |
419 |
|
(make-array-with-checks '(5) :element-type 'base-char |
420 |
|
:displaced-to a |
421 |
|
:displaced-index-offset i))) |
422 |
|
("abcde" |
423 |
|
"bcdef" |
424 |
|
"cdefg" |
425 |
|
"defgh" |
426 |
|
"efghi" |
427 |
|
"fghij")) |
428 |
|
|
429 |
|
(deftest make-array.displaced.13 |
430 |
|
(let ((a (make-array '(10) :element-type 'base-char |
431 |
|
:initial-contents "abcdefghij"))) |
432 |
|
(make-array-with-checks '(0) :element-type 'base-char |
433 |
|
:displaced-to a |
434 |
|
:displaced-index-offset 10)) |
435 |
|
"") |
436 |
|
|
437 |
|
(deftest make-array.displaced.14 |
438 |
|
(let ((a (make-array '(10) :element-type 'character |
439 |
|
:initial-contents "abcdefghij"))) |
440 |
|
(make-array-with-checks '(5) :element-type 'character |
441 |
|
:displaced-to a)) |
442 |
|
"abcde") |
443 |
|
|
444 |
|
(deftest make-array.displaced.15 |
445 |
|
(let ((a (make-array '(10) :element-type 'character |
446 |
|
:initial-contents "abcdefghij"))) |
447 |
|
(loop for i from 0 to 5 collect |
448 |
|
(make-array-with-checks '(5) :element-type 'character |
449 |
|
:displaced-to a |
450 |
|
:displaced-index-offset i))) |
451 |
|
("abcde" |
452 |
|
"bcdef" |
453 |
|
"cdefg" |
454 |
|
"defgh" |
455 |
|
"efghi" |
456 |
|
"fghij")) |
457 |
|
|
458 |
|
(deftest make-array.displaced.16 |
459 |
|
(let ((a (make-array '(10) :element-type 'character |
460 |
|
:initial-contents "abcdefghij"))) |
461 |
|
(make-array-with-checks '(0) :element-type 'character |
462 |
|
:displaced-to a |
463 |
|
:displaced-index-offset 10)) |
464 |
|
"") |