835 |
(result (nsubstitute 1 0 x :from-end t :count 1))) |
(result (nsubstitute 1 0 x :from-end t :count 1))) |
836 |
result) |
result) |
837 |
#*01111) |
#*01111) |
838 |
|
|
839 |
|
;;; Error cases |
840 |
|
|
841 |
|
(deftest nsubstitute.error.1 |
842 |
|
(classify-error (nsubstitute)) |
843 |
|
program-error) |
844 |
|
|
845 |
|
(deftest nsubstitute.error.2 |
846 |
|
(classify-error (nsubstitute 'a)) |
847 |
|
program-error) |
848 |
|
|
849 |
|
(deftest nsubstitute.error.3 |
850 |
|
(classify-error (nsubstitute 'a 'b)) |
851 |
|
program-error) |
852 |
|
|
853 |
|
(deftest nsubstitute.error.4 |
854 |
|
(classify-error (nsubstitute 'a 'b nil 'bad t)) |
855 |
|
program-error) |
856 |
|
|
857 |
|
(deftest nsubstitute.error.5 |
858 |
|
(classify-error (nsubstitute 'a 'b nil 'bad t :allow-other-keys nil)) |
859 |
|
program-error) |
860 |
|
|
861 |
|
(deftest nsubstitute.error.6 |
862 |
|
(classify-error (nsubstitute 'a 'b nil :key)) |
863 |
|
program-error) |
864 |
|
|
865 |
|
(deftest nsubstitute.error.7 |
866 |
|
(classify-error (nsubstitute 'a 'b nil 1 2)) |
867 |
|
program-error) |