534 |
:start (progn (setf w (incf i)) 0)) |
:start (progn (setf w (incf i)) 0)) |
535 |
i x y z p q r s w)) |
i x y z p q r s w)) |
536 |
#(a z z a) 8 1 2 3 4 5 6 7 8) |
#(a z z a) 8 1 2 3 4 5 6 7 8) |
537 |
|
|
538 |
|
;;; Specialized strings |
539 |
|
|
540 |
|
(deftest fill.specialized-strings.1 |
541 |
|
(do-special-strings |
542 |
|
(s (copy-seq "abcde") nil) |
543 |
|
(assert (string= s "abcde")) |
544 |
|
(assert (eq s (fill s #\x))) |
545 |
|
(assert (string= s "xxxxx"))) |
546 |
|
nil) |
547 |
|
|
548 |
|
(deftest fill.specialized-strings.2 |
549 |
|
(do-special-strings |
550 |
|
(s (copy-seq "abcde") nil) |
551 |
|
(assert (string= s "abcde")) |
552 |
|
(assert (eq s (fill s #\x :start 2))) |
553 |
|
(assert (string= s "abxxx"))) |
554 |
|
nil) |
555 |
|
|
556 |
|
(deftest fill.specialized-strings.3 |
557 |
|
(do-special-strings |
558 |
|
(s (copy-seq "abcde") nil) |
559 |
|
(assert (string= s "abcde")) |
560 |
|
(assert (eq s (fill s #\x :end 3))) |
561 |
|
(assert (string= s "xxxde"))) |
562 |
|
nil) |
563 |
|
|
564 |
|
(deftest fill.specialized-strings.4 |
565 |
|
(do-special-strings |
566 |
|
(s (copy-seq "abcde") nil) |
567 |
|
(assert (string= s "abcde")) |
568 |
|
(assert (eq s (fill s #\x :start 1 :end 4))) |
569 |
|
(assert (string= s "axxxe"))) |
570 |
|
nil) |