26 |
i)) |
i)) |
27 |
nil 1) |
nil 1) |
28 |
|
|
29 |
(deftest endp-symbol-error |
(deftest endp.error.1 |
30 |
(catch-type-error (endp 'a)) |
(check-type-error #'endp #'listp) |
31 |
type-error) |
nil) |
|
|
|
|
(deftest endp-fixnum-error |
|
|
(catch-type-error (endp 1)) |
|
|
type-error) |
|
|
|
|
|
(deftest endp-float-error |
|
|
(catch-type-error (endp 0.9212d4)) |
|
|
type-error) |
|
32 |
|
|
33 |
(deftest endp.error.4 |
(deftest endp.error.4 |
34 |
(signals-error (endp) program-error) |
(signals-error (endp) program-error) |
41 |
(deftest endp.error.6 |
(deftest endp.error.6 |
42 |
(signals-error (locally (endp 1)) type-error) |
(signals-error (locally (endp 1)) type-error) |
43 |
t) |
t) |
|
|
|