722 |
result) |
result) |
723 |
#*0101011111) |
#*0101011111) |
724 |
|
|
725 |
|
(defharmless nsubstitute.test-and-test-not.1 |
726 |
|
(nsubstitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql)) |
727 |
|
|
728 |
|
(defharmless nsubstitute.test-and-test-not.2 |
729 |
|
(nsubstitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql)) |
730 |
|
|
731 |
|
(defharmless nsubstitute.test-and-test-not.3 |
732 |
|
(nsubstitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql)) |
733 |
|
|
734 |
|
(defharmless nsubstitute.test-and-test-not.4 |
735 |
|
(nsubstitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql)) |
736 |
|
|
737 |
|
(defharmless nsubstitute.test-and-test-not.5 |
738 |
|
(nsubstitute #\b #\a (copy-seq "abcdab") :test #'eql :test-not #'eql)) |
739 |
|
|
740 |
|
(defharmless nsubstitute.test-and-test-not.6 |
741 |
|
(nsubstitute #\b #\a (copy-seq "abcdab") :test-not #'eql :test #'eql)) |
742 |
|
|
743 |
|
(defharmless nsubstitute.test-and-test-not.7 |
744 |
|
(nsubstitute 1 0 (copy-seq #*001101001) :test #'eql :test-not #'eql)) |
745 |
|
|
746 |
|
(defharmless nsubstitute.test-and-test-not.8 |
747 |
|
(nsubstitute 0 1 (copy-seq #*1100110101) :test-not #'eql :test #'eql)) |
748 |
|
|
749 |
|
|
750 |
;;;; additional tests |
;;;; additional tests |
751 |
|
|
752 |
(deftest nsubstitute-list.24 |
(deftest nsubstitute-list.24 |