216 |
(seq2 (copy-seq seq)) |
(seq2 (copy-seq seq)) |
217 |
(seq1r (apply (the function tested-fn) element seq1 arg-list)) |
(seq1r (apply (the function tested-fn) element seq1 arg-list)) |
218 |
(seq2r (apply (the function check-fn) element seq2 arg-list))) |
(seq2r (apply (the function check-fn) element seq2 arg-list))) |
219 |
(setq *remove-fail-args* (list* element seq1 arg-list)) |
(setq *remove-fail-args* (list* element seq arg-list)) |
220 |
(cond |
(cond |
221 |
((and pure (not (equalp seq seq1))) :fail1) |
((and pure (not (equalp seq seq1))) :fail1) |
222 |
((and pure (not (equalp seq seq2))) :fail2) |
((and pure (not (equalp seq seq2))) :fail2) |