/[gcl]/gcl/ansi-tests/remove-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remove-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pfdietz, Sun Jul 27 15:30:39 2003 UTC revision 1.10 by pfdietz, Sat Aug 2 18:35:19 2003 UTC
# Line 216  Line 216 
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)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26