711 |
result) |
result) |
712 |
#*01111) |
#*01111) |
713 |
|
|
714 |
|
(deftest substitute-if-not.order.1 |
715 |
|
(let ((i 0) a b c d e f g h) |
716 |
|
(values |
717 |
|
(substitute-if-not |
718 |
|
(progn (setf a (incf i)) 'a) |
719 |
|
(progn (setf b (incf i)) #'identity) |
720 |
|
(progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5)) |
721 |
|
:count (progn (setf d (incf i)) 2) |
722 |
|
:start (progn (setf e (incf i)) 0) |
723 |
|
:end (progn (setf f (incf i)) 7) |
724 |
|
:key (progn (setf g (incf i)) #'identity) |
725 |
|
:from-end (setf h (incf i)) |
726 |
|
) |
727 |
|
i a b c d e f g h)) |
728 |
|
(nil 1 2 a 3 4 a 5) |
729 |
|
8 1 2 3 4 5 6 7 8) |
730 |
|
|
731 |
|
(deftest substitute-if-not.order.2 |
732 |
|
(let ((i 0) a b c d e f g h) |
733 |
|
(values |
734 |
|
(substitute-if-not |
735 |
|
(progn (setf a (incf i)) 'a) |
736 |
|
(progn (setf b (incf i)) #'identity) |
737 |
|
(progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5)) |
738 |
|
:from-end (setf h (incf i)) |
739 |
|
:key (progn (setf g (incf i)) #'identity) |
740 |
|
:end (progn (setf f (incf i)) 7) |
741 |
|
:start (progn (setf e (incf i)) 0) |
742 |
|
:count (progn (setf d (incf i)) 2) |
743 |
|
) |
744 |
|
i a b c d e f g h)) |
745 |
|
(nil 1 2 a 3 4 a 5) |
746 |
|
8 1 2 3 8 7 6 5 4) |
747 |
|
|
748 |
;;; Keyword tests |
;;; Keyword tests |
749 |
|
|
750 |
(deftest substitute-if-not.allow-other-keys.1 |
(deftest substitute-if-not.allow-other-keys.1 |