868 |
;;; Error tests |
;;; Error tests |
869 |
|
|
870 |
(deftest find.error.1 |
(deftest find.error.1 |
871 |
(signals-error (find 'a 'b) type-error) |
(check-type-error #'(lambda (x) (find 'a x)) #'(lambda (x) (typep x 'sequence))) |
872 |
t) |
nil) |
|
|
|
|
(deftest find.error.2 |
|
|
(signals-error (find 'a 10) type-error) |
|
|
t) |
|
|
|
|
|
(deftest find.error.3 |
|
|
(signals-error (find 'a 1.4) type-error) |
|
|
t) |
|
873 |
|
|
874 |
(deftest find.error.4 |
(deftest find.error.4 |
875 |
(signals-error (find 'e '(a b c . d)) type-error) |
(signals-error (find 'e '(a b c . d)) type-error) |
932 |
a 2 1 2) |
a 2 1 2) |
933 |
|
|
934 |
(deftest find.order.2 |
(deftest find.order.2 |
935 |
(let ((i 0) a b c d e f g) |
(let ((i 0) a b c d e f) |
936 |
(values |
(values |
937 |
(find (progn (setf a (incf i)) nil) |
(find (progn (setf a (incf i)) nil) |
938 |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
945 |
a 6 1 2 3 4 5 6) |
a 6 1 2 3 4 5 6) |
946 |
|
|
947 |
(deftest find.order.3 |
(deftest find.order.3 |
948 |
(let ((i 0) a b c d e f g) |
(let ((i 0) a b c d e f) |
949 |
(values |
(values |
950 |
(find (progn (setf a (incf i)) nil) |
(find (progn (setf a (incf i)) nil) |
951 |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |