371 |
:element-type 'bit))) |
:element-type 'bit))) |
372 |
(reduce #'+ s :start 2 :end 4)) |
(reduce #'+ s :start 2 :end 4)) |
373 |
2) |
2) |
374 |
|
|
375 |
|
;;; Keyword tests |
376 |
|
|
377 |
|
(deftest reduce.allow-other-keys.1 |
378 |
|
(reduce #'+ '(1 2 3) :allow-other-keys t) |
379 |
|
6) |
380 |
|
|
381 |
|
(deftest reduce.allow-other-keys.2 |
382 |
|
(reduce #'+ '(1 2 3) :allow-other-keys nil) |
383 |
|
6) |
384 |
|
|
385 |
|
(deftest reduce.allow-other-keys.3 |
386 |
|
(reduce #'+ '(1 2 3) :bad t :allow-other-keys t) |
387 |
|
6) |
388 |
|
|
389 |
|
(deftest reduce.allow-other-keys.4 |
390 |
|
(reduce #'+ '(1 2 3) :allow-other-keys t :bad t) |
391 |
|
6) |
392 |
|
|
393 |
|
(deftest reduce.allow-other-keys.5 |
394 |
|
(reduce #'+ '(1 2 3) :allow-other-keys t :allow-other-keys nil :bad t) |
395 |
|
6) |
396 |
|
|
397 |
|
(deftest reduce.allow-other-keys.6 |
398 |
|
(reduce #'+ '(1 2 3) :allow-other-keys t :bad t :allow-other-keys nil) |
399 |
|
6) |
400 |
|
|
401 |
|
(deftest reduce.allow-other-keys.7 |
402 |
|
(reduce #'+ '(1 2 3) :bad t :allow-other-keys t :allow-other-keys nil) |
403 |
|
6) |
404 |
|
|
405 |
|
(deftest reduce.allow-other-keys.8 |
406 |
|
(reduce #'cons '(1 2 3) :allow-other-keys t :from-end t :bad t |
407 |
|
:initial-value nil) |
408 |
|
(1 2 3)) |
409 |
|
|
410 |
|
(deftest reduce.keywords.9 |
411 |
|
(reduce #'cons '(1 2 3) :from-end t :from-end nil |
412 |
|
:initial-value nil :initial-value 'a) |
413 |
|
(1 2 3)) |