585 |
(values (eqt x result) result)) |
(values (eqt x result) result)) |
586 |
t |
t |
587 |
"aabcef") |
"aabcef") |
588 |
|
|
589 |
|
;;; Error cases |
590 |
|
|
591 |
|
(deftest replace.error.1 |
592 |
|
(classify-error (replace)) |
593 |
|
program-error) |
594 |
|
|
595 |
|
(deftest replace.error.2 |
596 |
|
(classify-error (replace nil)) |
597 |
|
program-error) |
598 |
|
|
599 |
|
(deftest replace.error.3 |
600 |
|
(classify-error (replace nil nil :start)) |
601 |
|
program-error) |
602 |
|
|
603 |
|
(deftest replace.error.4 |
604 |
|
(classify-error (replace nil nil 'bad t)) |
605 |
|
program-error) |
606 |
|
|
607 |
|
(deftest replace.error.5 |
608 |
|
(classify-error (replace nil nil :allow-other-keys nil 'bad t)) |
609 |
|
program-error) |
610 |
|
|
611 |
|
(deftest replace.error.6 |
612 |
|
(classify-error (replace nil nil 1 2)) |
613 |
|
program-error) |
614 |
|
|