15 |
(signals-error (evenp 0 nil) program-error) |
(signals-error (evenp 0 nil) program-error) |
16 |
t) |
t) |
17 |
|
|
18 |
|
(deftest evenp.error.3 |
19 |
|
(check-type-error #'evenp #'integerp) |
20 |
|
nil) |
21 |
|
|
22 |
(deftest evenp.1 |
(deftest evenp.1 |
23 |
(loop for x in *numbers* |
(loop for x in *numbers* |
24 |
when (integerp x) |
when (integerp x) |
25 |
do (evenp x)) |
do (evenp x)) |
26 |
nil) |
nil) |
27 |
|
|
|
(deftest evenp.2 |
|
|
(loop for x in *mini-universe* |
|
|
unless (or (integerp x) |
|
|
(eval `(signals-error (evenp ',x) type-error))) |
|
|
collect x) |
|
|
nil) |
|
|
|
|
28 |
(deftest evenp.3 |
(deftest evenp.3 |
29 |
(loop for x = (random-fixnum) |
(loop for x = (random-fixnum) |
30 |
repeat 10000 |
repeat 10000 |