190 |
(deftest substitute-list.26 |
(deftest substitute-list.26 |
191 |
(let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
(let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
192 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
193 |
(result (substitute '(a 10) 'a x :key #'car :test (complement #'eq)))) |
(result (substitute '(a 10) 'a x :key #'car :test (complement #'eql)))) |
194 |
(and (equal orig x) |
(and (equal orig x) |
195 |
result)) |
result)) |
196 |
((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
198 |
(deftest substitute-list.27 |
(deftest substitute-list.27 |
199 |
(let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
(let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
200 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
201 |
(result (substitute '(a 10) 'a x :key #'car :test-not #'eq))) |
(result (substitute '(a 10) 'a x :key #'car :test-not #'eql))) |
202 |
(and (equal orig x) |
(and (equal orig x) |
203 |
result)) |
result)) |
204 |
((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
394 |
(deftest substitute-vector.26 |
(deftest substitute-vector.26 |
395 |
(let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
(let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
396 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
397 |
(result (substitute '(a 10) 'a x :key #'car :test (complement #'eq)))) |
(result (substitute '(a 10) 'a x :key #'car :test (complement #'eql)))) |
398 |
(and (equalp orig x) |
(and (equalp orig x) |
399 |
result)) |
result)) |
400 |
#((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
#((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
402 |
(deftest substitute-vector.27 |
(deftest substitute-vector.27 |
403 |
(let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
(let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7))) |
404 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
405 |
(result (substitute '(a 10) 'a x :key #'car :test-not #'eq))) |
(result (substitute '(a 10) 'a x :key #'car :test-not #'eql))) |
406 |
(and (equalp orig x) |
(and (equalp orig x) |
407 |
result)) |
result)) |
408 |
#((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
#((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10))) |
641 |
(deftest substitute-string.26 |
(deftest substitute-string.26 |
642 |
(let* ((orig "0102342015") |
(let* ((orig "0102342015") |
643 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
644 |
(result (substitute #\a #\1 x :key #'nextdigit :test (complement #'eq)))) |
(result (substitute #\a #\1 x :key #'nextdigit :test (complement #'eql)))) |
645 |
(and (equalp orig x) |
(and (equalp orig x) |
646 |
result)) |
result)) |
647 |
"0a0aaaa0aa") |
"0a0aaaa0aa") |
649 |
(deftest substitute-string.27 |
(deftest substitute-string.27 |
650 |
(let* ((orig "0102342015") |
(let* ((orig "0102342015") |
651 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
652 |
(result (substitute #\a #\1 x :key #'nextdigit :test-not #'eq))) |
(result (substitute #\a #\1 x :key #'nextdigit :test-not #'eql))) |
653 |
(and (equalp orig x) |
(and (equalp orig x) |
654 |
result)) |
result)) |
655 |
"0a0aaaa0aa") |
"0a0aaaa0aa") |
925 |
(deftest substitute-bit-vector.28 |
(deftest substitute-bit-vector.28 |
926 |
(let* ((orig #*00111001011010110) |
(let* ((orig #*00111001011010110) |
927 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
928 |
(result (substitute 0 1 x :key #'1+ :test (complement #'eq)))) |
(result (substitute 0 1 x :key #'1+ :test (complement #'eql)))) |
929 |
(and (equalp orig x) |
(and (equalp orig x) |
930 |
result)) |
result)) |
931 |
#*00000000000000000) |
#*00000000000000000) |
933 |
(deftest substitute-bit-vector.29 |
(deftest substitute-bit-vector.29 |
934 |
(let* ((orig #*00111001011010110) |
(let* ((orig #*00111001011010110) |
935 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
936 |
(result (substitute 0 1 x :key #'1+ :test-not #'eq))) |
(result (substitute 0 1 x :key #'1+ :test-not #'eql))) |
937 |
(and (equalp orig x) |
(and (equalp orig x) |
938 |
result)) |
result)) |
939 |
#*00000000000000000) |
#*00000000000000000) |