51 |
(eql (cadr x) :ignored)) |
(eql (cadr x) :ignored)) |
52 |
collect e) |
collect e) |
53 |
nil) |
nil) |
54 |
|
|
55 |
|
(deftest the.8 |
56 |
|
(loop for e in *universe* |
57 |
|
when (and (constantp e) |
58 |
|
(not (eql (eval `(the ,(type-of e) ,e)) e))) |
59 |
|
collect e) |
60 |
|
nil) |
61 |
|
|
62 |
|
(deftest the.9 |
63 |
|
(loop for e in *universe* |
64 |
|
when (and (constantp e) |
65 |
|
(not (eql (eval `(the ,(class-of e) ,e)) e))) |
66 |
|
collect e) |
67 |
|
nil) |
68 |
|
|
69 |
|
(deftest the.10 |
70 |
|
(loop for e in *universe* |
71 |
|
unless (eql (eval `(the ,(class-of e) ',e)) e) |
72 |
|
collect e) |
73 |
|
nil) |
74 |
|
|