10 |
2) |
2) |
11 |
|
|
12 |
(deftest count-list.2 |
(deftest count-list.2 |
13 |
(count 'a '(a b c d e a e f) :test #'eq) |
(count 'a '(a b c d e a e f) :test #'eql) |
14 |
2) |
2) |
15 |
|
|
16 |
(deftest count-list.3 |
(deftest count-list.3 |
17 |
(count 'a '(a b c d e a e f) :test 'eq) |
(count 'a '(a b c d e a e f) :test 'eql) |
18 |
2) |
2) |
19 |
|
|
20 |
(deftest count-list.4 |
(deftest count-list.4 |
71 |
7) |
7) |
72 |
|
|
73 |
(deftest count-list.15 |
(deftest count-list.15 |
74 |
(count 1 '(1 1 1 1 1 2 1 1) :test-not #'eq) |
(count 1 '(1 1 1 1 1 2 1 1) :test-not #'eql) |
75 |
1) |
1) |
76 |
|
|
77 |
(deftest count-list.16 |
(deftest count-list.16 |
86 |
2) |
2) |
87 |
|
|
88 |
(deftest count-vector.2 |
(deftest count-vector.2 |
89 |
(count 'a #(a b c d e a e f) :test #'eq) |
(count 'a #(a b c d e a e f) :test #'eql) |
90 |
2) |
2) |
91 |
|
|
92 |
(deftest count-vector.3 |
(deftest count-vector.3 |
93 |
(count 'a #(a b c d e a e f) :test 'eq) |
(count 'a #(a b c d e a e f) :test 'eql) |
94 |
2) |
2) |
95 |
|
|
96 |
(deftest count-vector.4 |
(deftest count-vector.4 |
147 |
7) |
7) |
148 |
|
|
149 |
(deftest count-vector.15 |
(deftest count-vector.15 |
150 |
(count 1 #(1 1 1 1 1 2 1 1) :test-not #'eq) |
(count 1 #(1 1 1 1 1 2 1 1) :test-not #'eql) |
151 |
1) |
1) |
152 |
|
|
153 |
(deftest count-vector16 |
(deftest count-vector16 |
165 |
(deftest count-filled-vector.2 |
(deftest count-filled-vector.2 |
166 |
(count 'a (make-array 8 :initial-contents '(a b c d e a e f) |
(count 'a (make-array 8 :initial-contents '(a b c d e a e f) |
167 |
:fill-pointer t) |
:fill-pointer t) |
168 |
:test #'eq) |
:test #'eql) |
169 |
2) |
2) |
170 |
|
|
171 |
(deftest count-filled-vector.3 |
(deftest count-filled-vector.3 |
172 |
(count 'a (make-array 8 :initial-contents '(a b c d e a e f) |
(count 'a (make-array 8 :initial-contents '(a b c d e a e f) |
173 |
:fill-pointer t) |
:fill-pointer t) |
174 |
:test 'eq) |
:test 'eql) |
175 |
2) |
2) |
176 |
|
|
177 |
(deftest count-filled-vector.4 |
(deftest count-filled-vector.4 |
250 |
(deftest count-filled-vector.15 |
(deftest count-filled-vector.15 |
251 |
(count 1 (make-array 8 :initial-contents '(1 1 1 1 1 2 1 1) |
(count 1 (make-array 8 :initial-contents '(1 1 1 1 1 2 1 1) |
252 |
:fill-pointer t) |
:fill-pointer t) |
253 |
:test-not #'eq) |
:test-not #'eql) |
254 |
1) |
1) |
255 |
|
|
256 |
(deftest count-filled-vector.16 |
(deftest count-filled-vector.16 |
291 |
7) |
7) |
292 |
|
|
293 |
(deftest count-bit-vector.2 |
(deftest count-bit-vector.2 |
294 |
(count 1 #*00101100011011000 :test #'eq) |
(count 1 #*00101100011011000 :test #'eql) |
295 |
7) |
7) |
296 |
|
|
297 |
(deftest count-bit-vector.3 |
(deftest count-bit-vector.3 |
298 |
(count 1 #*00101100011011000 :test 'eq) |
(count 1 #*00101100011011000 :test 'eql) |
299 |
7) |
7) |
300 |
|
|
301 |
(deftest count-bit-vector.4 |
(deftest count-bit-vector.4 |
348 |
7) |
7) |
349 |
|
|
350 |
(deftest count-bit-vector.15 |
(deftest count-bit-vector.15 |
351 |
(count 1 #*11111011 :test-not #'eq) |
(count 1 #*11111011 :test-not #'eql) |
352 |
1) |
1) |
353 |
|
|
354 |
(deftest count-bit-vector.16 |
(deftest count-bit-vector.16 |
392 |
7) |
7) |
393 |
|
|
394 |
(deftest count-string.2 |
(deftest count-string.2 |
395 |
(count #\1 "00101100011011000" :test #'eq) |
(count #\1 "00101100011011000" :test #'eql) |
396 |
7) |
7) |
397 |
|
|
398 |
(deftest count-string.3 |
(deftest count-string.3 |
399 |
(count #\1 "00101100011011000" :test 'eq) |
(count #\1 "00101100011011000" :test 'eql) |
400 |
7) |
7) |
401 |
|
|
402 |
(deftest count-string.4 |
(deftest count-string.4 |
451 |
7) |
7) |
452 |
|
|
453 |
(deftest count-string.15 |
(deftest count-string.15 |
454 |
(count #\1 "11111011" :test-not #'eq) |
(count #\1 "11111011" :test-not #'eql) |
455 |
1) |
1) |
456 |
|
|
457 |
(deftest count-string.16 |
(deftest count-string.16 |