966 |
result) |
result) |
967 |
#*01111) |
#*01111) |
968 |
|
|
969 |
|
(defharmless substitute.test-and-test-not.1 |
970 |
|
(substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql)) |
971 |
|
|
972 |
|
(defharmless substitute.test-and-test-not.2 |
973 |
|
(substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql)) |
974 |
|
|
975 |
|
(defharmless substitute.test-and-test-not.3 |
976 |
|
(substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql)) |
977 |
|
|
978 |
|
(defharmless substitute.test-and-test-not.4 |
979 |
|
(substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql)) |
980 |
|
|
981 |
|
(defharmless substitute.test-and-test-not.5 |
982 |
|
(substitute #\b #\a (copy-seq "abcdab") :test #'eql :test-not #'eql)) |
983 |
|
|
984 |
|
(defharmless substitute.test-and-test-not.6 |
985 |
|
(substitute #\b #\a (copy-seq "abcdab") :test-not #'eql :test #'eql)) |
986 |
|
|
987 |
|
(defharmless substitute.test-and-test-not.7 |
988 |
|
(substitute 1 0 (copy-seq #*001101001) :test #'eql :test-not #'eql)) |
989 |
|
|
990 |
|
(defharmless substitute.test-and-test-not.8 |
991 |
|
(substitute 0 1 (copy-seq #*1100110101) :test-not #'eql :test #'eql)) |
992 |
|
|
993 |
|
|
994 |
(deftest substitute.order.1 |
(deftest substitute.order.1 |
995 |
(let ((i 0) a b c d e f g h) |
(let ((i 0) a b c d e f g h) |
996 |
(values |
(values |