966 |
result) |
result) |
967 |
#*01111) |
#*01111) |
968 |
|
|
969 |
|
;;; Keyword tests |
970 |
|
|
971 |
|
(deftest substitute.allow-other-keys.1 |
972 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t :bad t) |
973 |
|
(1 2 a 3 1 a 3)) |
974 |
|
|
975 |
|
(deftest substitute.allow-other-keys.2 |
976 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) :bad t :allow-other-keys t) |
977 |
|
(1 2 a 3 1 a 3)) |
978 |
|
|
979 |
|
(deftest substitute.allow-other-keys.3 |
980 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t |
981 |
|
:allow-other-keys nil :bad t) |
982 |
|
(1 2 a 3 1 a 3)) |
983 |
|
|
984 |
|
(deftest substitute.allow-other-keys.4 |
985 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) :bad t |
986 |
|
:allow-other-keys t :allow-other-keys nil) |
987 |
|
(1 2 a 3 1 a 3)) |
988 |
|
|
989 |
|
(deftest substitute.allow-other-keys.5 |
990 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) |
991 |
|
:allow-other-keys t :key #'1-) |
992 |
|
(a 2 0 3 a 0 3)) |
993 |
|
|
994 |
|
(deftest substitute.keywords.6 |
995 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) :key #'1- :key #'identity) |
996 |
|
(a 2 0 3 a 0 3)) |
997 |
|
|
998 |
|
(deftest substitute.allow-other-keys.7 |
999 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t |
1000 |
|
:bad t :allow-other-keys nil) |
1001 |
|
(1 2 a 3 1 a 3)) |
1002 |
|
|
1003 |
|
(deftest substitute.allow-other-keys.8 |
1004 |
|
(substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil) |
1005 |
|
(1 2 a 3 1 a 3)) |
1006 |
|
|
1007 |
;;; Error cases |
;;; Error cases |
1008 |
|
|
1009 |
(deftest substitute.error.1 |
(deftest substitute.error.1 |