579 |
(deftest find-if.error.11 |
(deftest find-if.error.11 |
580 |
(classify-error (locally (find-if #'null 'b) t)) |
(classify-error (locally (find-if #'null 'b) t)) |
581 |
type-error) |
type-error) |
582 |
|
|
583 |
|
;;; Order of evaluation tests |
584 |
|
|
585 |
|
(deftest find-if.order.1 |
586 |
|
(let ((i 0) x y) |
587 |
|
(values |
588 |
|
(find-if (progn (setf x (incf i)) #'identity) |
589 |
|
(progn (setf y (incf i)) '(nil nil nil a nil nil))) |
590 |
|
i x y)) |
591 |
|
a 2 1 2) |
592 |
|
|
593 |
|
(deftest find-if.order.2 |
594 |
|
(let ((i 0) a b c d e f g) |
595 |
|
(values |
596 |
|
(find-if (progn (setf a (incf i)) #'null) |
597 |
|
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
598 |
|
:start (progn (setf c (incf i)) 1) |
599 |
|
:end (progn (setf d (incf i)) 4) |
600 |
|
:from-end (setf e (incf i)) |
601 |
|
:key (progn (setf f (incf i)) #'null) |
602 |
|
) |
603 |
|
i a b c d e f)) |
604 |
|
a 6 1 2 3 4 5 6) |
605 |
|
|
606 |
|
|
607 |
|
(deftest find-if.order.3 |
608 |
|
(let ((i 0) a b c d e f g) |
609 |
|
(values |
610 |
|
(find-if (progn (setf a (incf i)) #'null) |
611 |
|
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
612 |
|
:key (progn (setf c (incf i)) #'null) |
613 |
|
:from-end (setf d (incf i)) |
614 |
|
:end (progn (setf e (incf i)) 4) |
615 |
|
:start (progn (setf f (incf i)) 1) |
616 |
|
) |
617 |
|
i a b c d e f)) |
618 |
|
a 6 1 2 3 4 5 6) |