1092 |
(substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil) |
(substitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil) |
1093 |
(1 2 a 3 1 a 3)) |
(1 2 a 3 1 a 3)) |
1094 |
|
|
1095 |
|
;;; Constant folding tests |
1096 |
|
|
1097 |
|
(deftest substitute.fold.1 |
1098 |
|
(flet ((%f () (substitute 'z 'b '(a b c)))) |
1099 |
|
(values |
1100 |
|
(%f) |
1101 |
|
(let ((seq (%f))) (setf (elt seq 0) 'd) seq) |
1102 |
|
(%f))) |
1103 |
|
(a z c) |
1104 |
|
(d z c) |
1105 |
|
(a z c)) |
1106 |
|
|
1107 |
|
(deftest substitute.fold.2 |
1108 |
|
(flet ((%f () (substitute 'z 'b #(a b c)))) |
1109 |
|
(values |
1110 |
|
(%f) |
1111 |
|
(let ((seq (%f))) (setf (elt seq 0) 'd) seq) |
1112 |
|
(%f))) |
1113 |
|
#(a z c) |
1114 |
|
#(d z c) |
1115 |
|
#(a z c)) |
1116 |
|
|
1117 |
|
(deftest substitute.fold.3 |
1118 |
|
(flet ((%f () (substitute 0 1 #*001101))) |
1119 |
|
(values |
1120 |
|
(%f) |
1121 |
|
(let ((seq (%f))) (setf (elt seq 0) 1) seq) |
1122 |
|
(%f))) |
1123 |
|
#*000000 |
1124 |
|
#*100000 |
1125 |
|
#*000000) |
1126 |
|
|
1127 |
;;; Error cases |
;;; Error cases |
1128 |
|
|
1129 |
(deftest substitute.error.1 |
(deftest substitute.error.1 |