310 |
(deftest remove-if-list.2 |
(deftest remove-if-list.2 |
311 |
(let* ((orig '(a b c a b d a c b a e)) |
(let* ((orig '(a b c a b d a c b a e)) |
312 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
313 |
(y (remove-if #'(lambda (y) (eq y 'a)) x :key nil))) |
(y (remove-if #'(lambda (y) (eqt y 'a)) x :key nil))) |
314 |
(and (equalp orig x) y)) |
(and (equalp orig x) y)) |
315 |
(b c b d c b e)) |
(b c b d c b e)) |
316 |
|
|
324 |
(deftest remove-if-not-list.2 |
(deftest remove-if-not-list.2 |
325 |
(let* ((orig '(a b c a b d a c b a e)) |
(let* ((orig '(a b c a b d a c b a e)) |
326 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
327 |
(y (remove-if-not #'(lambda (y) (not (eq y 'a))) x :key nil))) |
(y (remove-if-not #'(lambda (y) (not (eqt y 'a))) x :key nil))) |
328 |
(and (equalp orig x) y)) |
(and (equalp orig x) y)) |
329 |
(b c b d c b e)) |
(b c b d c b e)) |
330 |
|
|
338 |
(deftest delete-if-list.2 |
(deftest delete-if-list.2 |
339 |
(let* ((orig '(a b c a b d a c b a e)) |
(let* ((orig '(a b c a b d a c b a e)) |
340 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
341 |
(y (delete-if #'(lambda (y) (eq y 'a)) x :key nil))) |
(y (delete-if #'(lambda (y) (eqt y 'a)) x :key nil))) |
342 |
y) |
y) |
343 |
(b c b d c b e)) |
(b c b d c b e)) |
344 |
|
|
352 |
(deftest delete-if-not-list.2 |
(deftest delete-if-not-list.2 |
353 |
(let* ((orig '(a b c a b d a c b a e)) |
(let* ((orig '(a b c a b d a c b a e)) |
354 |
(x (copy-seq orig)) |
(x (copy-seq orig)) |
355 |
(y (delete-if-not #'(lambda (y) (not (eq y 'a))) x :key nil))) |
(y (delete-if-not #'(lambda (y) (not (eqt y 'a))) x :key nil))) |
356 |
y) |
y) |
357 |
(b c b d c b e)) |
(b c b d c b e)) |
358 |
|
|