638 |
:from-end t) |
:from-end t) |
639 |
4) |
4) |
640 |
|
|
641 |
|
(deftest position.order.1 |
642 |
|
(let ((i 0) a b c d e f g) |
643 |
|
(values |
644 |
|
(position |
645 |
|
(progn (setf a (incf i)) 0) |
646 |
|
(progn (setf b (incf i)) '(3 1 8 2 1 2 3 4)) |
647 |
|
:from-end (setf c (incf i)) |
648 |
|
:start (progn (setf d (incf i)) 1) |
649 |
|
:end (progn (setf e (incf i)) 6) |
650 |
|
:key (progn (setf f (incf i)) #'1-) |
651 |
|
:test (progn (setf g (incf i)) #'=) |
652 |
|
) |
653 |
|
i a b c d e f g)) |
654 |
|
4 7 1 2 3 4 5 6 7) |
655 |
|
|
656 |
|
(deftest position.order.2 |
657 |
|
(let ((i 0) a b c d e f g) |
658 |
|
(values |
659 |
|
(position |
660 |
|
(progn (setf a (incf i)) 0) |
661 |
|
(progn (setf b (incf i)) '(3 1 8 2 1 2 3 4)) |
662 |
|
:test-not (progn (setf c (incf i)) #'/=) |
663 |
|
:key (progn (setf d (incf i)) #'1-) |
664 |
|
:end (progn (setf e (incf i)) 6) |
665 |
|
:start (progn (setf f (incf i)) 1) |
666 |
|
:from-end (setf g (incf i)) |
667 |
|
) |
668 |
|
i a b c d e f g)) |
669 |
|
4 7 1 2 3 4 5 6 7) |
670 |
|
|
671 |
;;; Keyword tests |
;;; Keyword tests |
672 |
|
|
673 |
(deftest position.allow-other-keys.1 |
(deftest position.allow-other-keys.1 |