60 |
(setf *mapc-6-var* nil) |
(setf *mapc-6-var* nil) |
61 |
(let ((result (mapc 'mapc-6-fun x))) |
(let ((result (mapc 'mapc-6-fun x))) |
62 |
(and (check-scaffold-copy x xcopy) |
(and (check-scaffold-copy x xcopy) |
63 |
(eq result x) |
(eqt result x) |
64 |
*mapc-6-var*))) |
*mapc-6-var*))) |
65 |
(h g f e d c b a)) |
(h g f e d c b a)) |
66 |
|
|
161 |
(loop |
(loop |
162 |
for e1 on x |
for e1 on x |
163 |
and e2 on result |
and e2 on result |
164 |
count (or (eq e1 e2) (not (eql (car e1) (car e2))))))) |
count (or (eqt e1 e2) (not (eql (car e1) (car e2))))))) |
165 |
0) |
0) |
166 |
|
|
167 |
(deftest mapcan-4 |
(deftest mapcan-4 |
246 |
x))) |
x))) |
247 |
(and |
(and |
248 |
(check-scaffold-copy x xcopy) |
(check-scaffold-copy x xcopy) |
249 |
(eq result x) |
(eqt result x) |
250 |
a)) |
a)) |
251 |
((c) (b c) (a b c))) |
((c) (b c) (a b c))) |
252 |
|
|
263 |
a))) |
a))) |
264 |
x y))) |
x y))) |
265 |
(and |
(and |
266 |
(eq result x) |
(eqt result x) |
267 |
(check-scaffold-copy x xcopy) |
(check-scaffold-copy x xcopy) |
268 |
(check-scaffold-copy y ycopy) |
(check-scaffold-copy y ycopy) |
269 |
a)) |
a)) |
283 |
a))) |
a))) |
284 |
x y))) |
x y))) |
285 |
(and |
(and |
286 |
(eq result x) |
(eqt result x) |
287 |
(check-scaffold-copy x xcopy) |
(check-scaffold-copy x xcopy) |
288 |
(check-scaffold-copy y ycopy) |
(check-scaffold-copy y ycopy) |
289 |
a)) |
a)) |
303 |
a))) |
a))) |
304 |
x y))) |
x y))) |
305 |
(and |
(and |
306 |
(eq result x) |
(eqt result x) |
307 |
(check-scaffold-copy x xcopy) |
(check-scaffold-copy x xcopy) |
308 |
(check-scaffold-copy y ycopy) |
(check-scaffold-copy y ycopy) |
309 |
a)) |
a)) |