734 |
(result (substitute-if 1 #'zerop x :from-end t :count 1))) |
(result (substitute-if 1 #'zerop x :from-end t :count 1))) |
735 |
result) |
result) |
736 |
#*01111) |
#*01111) |
737 |
|
|
738 |
|
;;; Error cases |
739 |
|
|
740 |
|
(deftest substitute-if.error.1 |
741 |
|
(classify-error (substitute-if)) |
742 |
|
program-error) |
743 |
|
|
744 |
|
(deftest substitute-if.error.2 |
745 |
|
(classify-error (substitute-if 'a)) |
746 |
|
program-error) |
747 |
|
|
748 |
|
(deftest substitute-if.error.3 |
749 |
|
(classify-error (substitute-if 'a #'null)) |
750 |
|
program-error) |
751 |
|
|
752 |
|
(deftest substitute-if.error.4 |
753 |
|
(classify-error (substitute-if 'a #'null nil 'bad t)) |
754 |
|
program-error) |
755 |
|
|
756 |
|
(deftest substitute-if.error.5 |
757 |
|
(classify-error (substitute-if 'a #'null nil 'bad t :allow-other-keys nil)) |
758 |
|
program-error) |
759 |
|
|
760 |
|
(deftest substitute-if.error.6 |
761 |
|
(classify-error (substitute-if 'a #'null nil :key)) |
762 |
|
program-error) |
763 |
|
|
764 |
|
(deftest substitute-if.error.7 |
765 |
|
(classify-error (substitute-if 'a #'null nil 1 2)) |
766 |
|
program-error) |