670 |
(position #\m "adfmpz" :test-not #'char>=) |
(position #\m "adfmpz" :test-not #'char>=) |
671 |
4) |
4) |
672 |
|
|
673 |
|
(defharmless position.test-and-test-not.1 |
674 |
|
(position 'b '(a b c d) :test #'eql :test-not #'eql)) |
675 |
|
|
676 |
|
(defharmless position.test-and-test-not.2 |
677 |
|
(position 'b '(a b c d) :test-not #'eql :test #'eql)) |
678 |
|
|
679 |
|
(defharmless position.test-and-test-not.3 |
680 |
|
(position 'b #(a b c d) :test #'eql :test-not #'eql)) |
681 |
|
|
682 |
|
(defharmless position.test-and-test-not.4 |
683 |
|
(position 'b #(a b c d) :test-not #'eql :test #'eql)) |
684 |
|
|
685 |
|
(defharmless position.test-and-test-not.5 |
686 |
|
(position #\b "abcd" :test #'eql :test-not #'eql)) |
687 |
|
|
688 |
|
(defharmless position.test-and-test-not.6 |
689 |
|
(position #\b "abcd" :test-not #'eql :test #'eql)) |
690 |
|
|
691 |
|
(defharmless position.test-and-test-not.7 |
692 |
|
(position 1 #*001010010 :test #'eql :test-not #'eql)) |
693 |
|
|
694 |
|
(defharmless position.test-and-test-not.8 |
695 |
|
(position 0 #*1110010110111 :test-not #'eql :test #'eql)) |
696 |
|
|
697 |
(deftest position.order.1 |
(deftest position.order.1 |
698 |
(let ((i 0) a b c d e f g) |
(let ((i 0) a b c d e f g) |
699 |
(values |
(values |