87 |
(count 10 '(1 11 2 4 14 5 18 6 7) :test-not #'>=) |
(count 10 '(1 11 2 4 14 5 18 6 7) :test-not #'>=) |
88 |
3) |
3) |
89 |
|
|
90 |
|
(defharmless count-list.test-and-test-not.1 |
91 |
|
(count 0 '(0 1 2 0 1 2 3 0 1) :test #'eql :test-not #'eql)) |
92 |
|
|
93 |
|
(defharmless count-list.test-and-test-not.2 |
94 |
|
(count 0 '(0 1 2 0 1 2 3 0 1) :test-not #'eql :test #'eql)) |
95 |
|
|
96 |
;;; On vectors |
;;; On vectors |
97 |
|
|
98 |
(deftest count-vector.1 |
(deftest count-vector.1 |
177 |
(count 10 #(1 11 2 4 14 5 18 6 7) :test-not #'>=) |
(count 10 #(1 11 2 4 14 5 18 6 7) :test-not #'>=) |
178 |
3) |
3) |
179 |
|
|
180 |
|
(defharmless count-vector.test-and-test-not.1 |
181 |
|
(count 0 #(0 1 2 0 1 2 3 0 1) :test #'eql :test-not #'eql)) |
182 |
|
|
183 |
|
(defharmless count-vector.test-and-test-not.2 |
184 |
|
(count 0 #(0 1 2 0 1 2 3 0 1) :test-not #'eql :test #'eql)) |
185 |
|
|
186 |
;;; Non-simple vectors |
;;; Non-simple vectors |
187 |
|
|
188 |
(deftest count-filled-vector.1 |
(deftest count-filled-vector.1 |
420 |
(count 1 #*00001100100 :test-not #'>) |
(count 1 #*00001100100 :test-not #'>) |
421 |
3) |
3) |
422 |
|
|
423 |
|
(defharmless count-bit-vector.test-and-test-not.1 |
424 |
|
(count 0 #*0011010101100010000 :test #'eql :test-not #'eql)) |
425 |
|
|
426 |
|
(defharmless count-bit-vector.test-and-test-not.2 |
427 |
|
(count 0 #*0011010101100010000 :test-not #'eql :test #'eql)) |
428 |
|
|
429 |
;;; Tests on strings |
;;; Tests on strings |
430 |
|
|
431 |
(deftest count-string.1 |
(deftest count-string.1 |
535 |
(count #\1 "00001100100" :test-not #'char>) |
(count #\1 "00001100100" :test-not #'char>) |
536 |
3) |
3) |
537 |
|
|
538 |
|
(defharmless count-string.test-and-test-not.1 |
539 |
|
(count #\0 "0011010101100010000" :test #'eql :test-not #'eql)) |
540 |
|
|
541 |
|
(defharmless count-string.test-and-test-not.2 |
542 |
|
(count #\0 "0011010101100010000" :test-not #'eql :test #'eql)) |
543 |
|
|
544 |
;;; Argument order tests |
;;; Argument order tests |
545 |
|
|
546 |
(deftest count.order.1 |
(deftest count.order.1 |