735 |
result) |
result) |
736 |
#*01111) |
#*01111) |
737 |
|
|
738 |
|
(deftest substitute-if.order.1 |
739 |
|
(let ((i 0) a b c d e f g h) |
740 |
|
(values |
741 |
|
(substitute-if |
742 |
|
(progn (setf a (incf i)) 'a) |
743 |
|
(progn (setf b (incf i)) #'null) |
744 |
|
(progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5)) |
745 |
|
:count (progn (setf d (incf i)) 2) |
746 |
|
:start (progn (setf e (incf i)) 0) |
747 |
|
:end (progn (setf f (incf i)) 7) |
748 |
|
:key (progn (setf g (incf i)) #'identity) |
749 |
|
:from-end (setf h (incf i)) |
750 |
|
) |
751 |
|
i a b c d e f g h)) |
752 |
|
(nil 1 2 a 3 4 a 5) |
753 |
|
8 1 2 3 4 5 6 7 8) |
754 |
|
|
755 |
|
(deftest substitute-if.order.2 |
756 |
|
(let ((i 0) a b c d e f g h) |
757 |
|
(values |
758 |
|
(substitute-if |
759 |
|
(progn (setf a (incf i)) 'a) |
760 |
|
(progn (setf b (incf i)) #'null) |
761 |
|
(progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5)) |
762 |
|
:from-end (setf h (incf i)) |
763 |
|
:key (progn (setf g (incf i)) #'identity) |
764 |
|
:end (progn (setf f (incf i)) 7) |
765 |
|
:start (progn (setf e (incf i)) 0) |
766 |
|
:count (progn (setf d (incf i)) 2) |
767 |
|
) |
768 |
|
i a b c d e f g h)) |
769 |
|
(nil 1 2 a 3 4 a 5) |
770 |
|
8 1 2 3 8 7 6 5 4) |
771 |
|
|
772 |
;;; Keyword tests |
;;; Keyword tests |
773 |
|
|
774 |
(deftest substitute-if.allow-other-keys.1 |
(deftest substitute-if.allow-other-keys.1 |