638 |
:from-end t) |
:from-end t) |
639 |
4) |
4) |
640 |
|
|
641 |
|
;;; Keyword tests |
642 |
|
|
643 |
|
(deftest position.allow-other-keys.1 |
644 |
|
(position 0 '(1 2 0 3 2 1) :allow-other-keys t) |
645 |
|
2) |
646 |
|
|
647 |
|
(deftest position.allow-other-keys.2 |
648 |
|
(position 0 '(1 2 0 3 2 1) :allow-other-keys nil) |
649 |
|
2) |
650 |
|
|
651 |
|
(deftest position.allow-other-keys.3 |
652 |
|
(position 0 '(1 2 0 3 2 1) :allow-other-keys t :bad t) |
653 |
|
2) |
654 |
|
|
655 |
|
(deftest position.allow-other-keys.4 |
656 |
|
(position 0 '(1 2 0 3 2 1) :bad t :allow-other-keys t) |
657 |
|
2) |
658 |
|
|
659 |
|
(deftest position.allow-other-keys.5 |
660 |
|
(position 0 '(1 2 0 3 2 1) :bad t :allow-other-keys t :key #'1-) |
661 |
|
0) |
662 |
|
|
663 |
|
(deftest position.keywords.6 |
664 |
|
(position 0 '(1 2 0 3 2 1) :key #'1- :key #'identity) |
665 |
|
0) |
666 |
|
|
667 |
|
(deftest position.allow-other-keys.7 |
668 |
|
(position 0 '(1 2 0 3 2 1) :bad t :allow-other-keys t |
669 |
|
:allow-other-keys nil) |
670 |
|
2) |
671 |
|
|
672 |
|
(deftest position.allow-other-keys.8 |
673 |
|
(position 0 '(1 2 0 3 2 1) :allow-other-keys t :bad t |
674 |
|
:allow-other-keys nil) |
675 |
|
2) |
676 |
|
|
677 |
|
(deftest position.allow-other-keys.9 |
678 |
|
(position 0 '(1 2 0 3 2 1) :allow-other-keys t |
679 |
|
:allow-other-keys nil :bad t) |
680 |
|
2) |
681 |
|
|
682 |
;;; Error tests |
;;; Error tests |
683 |
|
|
684 |
(deftest position.error.1 |
(deftest position.error.1 |