633 |
result) |
result) |
634 |
#*01111) |
#*01111) |
635 |
|
|
636 |
|
(deftest nsubstitute-if-not.order.1 |
637 |
|
(let ((i 0) a b c d e f g h) |
638 |
|
(values |
639 |
|
(nsubstitute-if-not |
640 |
|
(progn (setf a (incf i)) 'a) |
641 |
|
(progn (setf b (incf i)) #'identity) |
642 |
|
(progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5)) |
643 |
|
:count (progn (setf d (incf i)) 2) |
644 |
|
:start (progn (setf e (incf i)) 0) |
645 |
|
:end (progn (setf f (incf i)) 7) |
646 |
|
:key (progn (setf g (incf i)) #'identity) |
647 |
|
:from-end (setf h (incf i)) |
648 |
|
) |
649 |
|
i a b c d e f g h)) |
650 |
|
(nil 1 2 a 3 4 a 5) |
651 |
|
8 1 2 3 4 5 6 7 8) |
652 |
|
|
653 |
|
(deftest nsubstitute-if-not.order.2 |
654 |
|
(let ((i 0) a b c d e f g h) |
655 |
|
(values |
656 |
|
(nsubstitute-if-not |
657 |
|
(progn (setf a (incf i)) 'a) |
658 |
|
(progn (setf b (incf i)) #'identity) |
659 |
|
(progn (setf c (incf i)) (list nil 1 2 nil 3 4 nil 5)) |
660 |
|
:from-end (setf h (incf i)) |
661 |
|
:key (progn (setf g (incf i)) #'identity) |
662 |
|
:end (progn (setf f (incf i)) 7) |
663 |
|
:start (progn (setf e (incf i)) 0) |
664 |
|
:count (progn (setf d (incf i)) 2) |
665 |
|
) |
666 |
|
i a b c d e f g h)) |
667 |
|
(nil 1 2 a 3 4 a 5) |
668 |
|
8 1 2 3 8 7 6 5 4) |
669 |
|
|
670 |
|
|
671 |
;;; Keyword tests |
;;; Keyword tests |
672 |
|
|
673 |
(deftest nsubstitute-if-not.allow-other-keys.1 |
(deftest nsubstitute-if-not.allow-other-keys.1 |