28 |
(zerop |
(zerop |
29 |
(loop |
(loop |
30 |
for a on x and b on result count |
for a on x and b on result count |
31 |
(eq a b))) |
(eqt a b))) |
32 |
result))) |
result))) |
33 |
(error (c) c)) |
(error (c) c)) |
34 |
(a b c d e f)) |
(a b c d e f)) |
99 |
(loop |
(loop |
100 |
for c1 on x |
for c1 on x |
101 |
for c2 on result |
for c2 on result |
102 |
count (eq c1 c2))))) |
count (eqt c1 c2))))) |
103 |
0) |
0) |
104 |
|
|
105 |
|
|
141 |
(loop |
(loop |
142 |
for x in *universe* |
for x in *universe* |
143 |
count (and (not (listp x)) |
count (and (not (listp x)) |
144 |
(not (eq 'type-error |
(not (eqt 'type-error |
145 |
(catch-type-error (ldiff x x))))))) |
(catch-type-error (ldiff x x))))))) |
146 |
|
|
147 |
(deftest ldiff-12 |
(deftest ldiff-12 |
216 |
(loop |
(loop |
217 |
for x in *universe* |
for x in *universe* |
218 |
count (and (not (listp x)) |
count (and (not (listp x)) |
219 |
(eq 'type-error |
(eqt 'type-error |
220 |
(catch-type-error (tailp x x)))))) |
(catch-type-error (tailp x x)))))) |
221 |
|
|
222 |
(deftest tailp-7 |
(deftest tailp-7 |