150 |
:start 2 :from-end t) |
:start 2 :from-end t) |
151 |
(a b)) |
(a b)) |
152 |
|
|
153 |
|
(deftest find-list.29 |
154 |
|
(find 10 '(1 2 3 8 20 3 1 21 3) :test #'<) |
155 |
|
20) |
156 |
|
|
157 |
|
(deftest find-list.30 |
158 |
|
(find 10 '(1 2 3 8 20 3 1 21 3) :test-not #'>=) |
159 |
|
20) |
160 |
|
|
161 |
;;; Tests on vectors |
;;; Tests on vectors |
162 |
|
|
163 |
(deftest find-vector.1 |
(deftest find-vector.1 |
328 |
(loop for i from 1 to 5 collect (find i a :from-end t :key #'car))) |
(loop for i from 1 to 5 collect (find i a :from-end t :key #'car))) |
329 |
((1 1) (2 2) (3 3) (4 4) (5 5))) |
((1 1) (2 2) (3 3) (4 4) (5 5))) |
330 |
|
|
331 |
|
(deftest find-vector.31 |
332 |
|
(find 10 #(1 2 3 8 20 3 1 21 3) :test #'<) |
333 |
|
20) |
334 |
|
|
335 |
|
(deftest find-vector.32 |
336 |
|
(find 10 #(1 2 3 8 20 3 1 21 3) :test-not #'>=) |
337 |
|
20) |
338 |
|
|
339 |
;;; tests on bit vectors |
;;; tests on bit vectors |
340 |
|
|
341 |
(deftest find-bit-vector.1 |
(deftest find-bit-vector.1 |
609 |
(values (find 0 a) (find 0 a :from-end t))) |
(values (find 0 a) (find 0 a :from-end t))) |
610 |
0 0) |
0 0) |
611 |
|
|
612 |
|
(deftest find-bit-vector.31 |
613 |
|
(find 2 #*00011010010 :test #'<) |
614 |
|
nil) |
615 |
|
|
616 |
|
(deftest find-bit-vector.32 |
617 |
|
(find 2 #*0010101101 :test-not #'>=) |
618 |
|
nil) |
619 |
|
|
620 |
|
(deftest find-bit-vector.33 |
621 |
|
(find 0 #*00011010010 :test #'<) |
622 |
|
1) |
623 |
|
|
624 |
|
(deftest find-bit-vector.34 |
625 |
|
(find 0 #*0010101101 :test-not #'>=) |
626 |
|
1) |
627 |
|
|
628 |
;;; strings |
;;; strings |
629 |
|
|
630 |
(deftest find-string.1 |
(deftest find-string.1 |
773 |
(#\a #\b #\c #\d #\e nil nil nil nil nil) |
(#\a #\b #\c #\d #\e nil nil nil nil nil) |
774 |
(#\a #\b #\c #\d #\e nil nil nil nil nil)) |
(#\a #\b #\c #\d #\e nil nil nil nil nil)) |
775 |
|
|
776 |
|
(deftest find-string.26 |
777 |
|
(find #\k "abcdmnop" :test #'char<) |
778 |
|
#\m) |
779 |
|
|
780 |
|
(deftest find-string.27 |
781 |
|
(find #\k "abcdmnop" :test-not #'char>=) |
782 |
|
#\m) |
783 |
|
|
784 |
;;; Keyword tests |
;;; Keyword tests |
785 |
|
|
786 |
(deftest find.allow-other-keys.1 |
(deftest find.allow-other-keys.1 |