17 |
(some #'(lambda (x) (and x (null x))) *universe*) |
(some #'(lambda (x) (and x (null x))) *universe*) |
18 |
nil) |
nil) |
19 |
|
|
20 |
|
(deftest null.4 |
21 |
|
(not (some #'null |
22 |
|
`(1 a 1.2 "a" #\w (a) ,*terminal-io* |
23 |
|
#'car (make-array '(10))))) |
24 |
|
t) |
25 |
|
|
26 |
|
(deftest null.error.1 |
27 |
|
(classify-error (null)) |
28 |
|
program-error) |
29 |
|
|
30 |
|
(deftest null.error.2 |
31 |
|
(classify-error (null nil nil)) |
32 |
|
program-error) |
33 |
|
|
34 |
(deftest not.1 |
(deftest not.1 |
35 |
(not nil) |
(not nil) |
36 |
t) |
t) |
43 |
(some #'(lambda (x) (and x (not x))) *universe*) |
(some #'(lambda (x) (and x (not x))) *universe*) |
44 |
nil) |
nil) |
45 |
|
|
46 |
|
(deftest not.4 |
47 |
|
(not (some #'not |
48 |
|
`(1 a 1.2 "a" #\w (a) ,*terminal-io* |
49 |
|
#'car (make-array '(10))))) |
50 |
|
t) |
51 |
|
|
52 |
|
|
53 |
|
(deftest not.error.1 |
54 |
|
(classify-error (not)) |
55 |
|
program-error) |
56 |
|
|
57 |
|
(deftest not.error.2 |
58 |
|
(classify-error (not nil nil)) |
59 |
|
program-error) |