anchor.diff:              (return-from compare-files nil)))))))
   
   (deftest big-stream-comparision-test
  -    (let ((args-list (loop for (file-name symbols) in *test-files*
  -                           nconc (create-test-combinations file-name symbols))))
  -      (loop for args in args-list
  -            unless (apply #'compare-files args)
  -            collect args))
  +    (let ((args-list (loop :for (file-name symbols) :in *test-files*
  +                           :nconc (create-test-combinations file-name symbols))))
  +      (loop :for args :in args-list
  +            :unless (apply #'compare-files args)
  +            :collect args))
     nil)
  
positive.code:   (with-open-file (stream1 file1 :element-type '(unsigned-byte 8))
      (with-open-file (stream2 file2 :element-type '(unsigned-byte 8))
        (and (= (file-length stream1) (file-length stream2))
             (loop for byte1 = (read-byte stream1 nil nil)
                   for byte2 = (read-byte stream2 nil nil)
                   while (and byte1 byte2)
                   always (= byte1 byte2))))))
  
  ;;; Copies the contents of the file denoted by the pathname PATH-IN to
  ;;; the file denoted by the pathname PATH-OUT using flexi streams -
  
negative.code: ;;; and the cdr is the corresponding external format.  This list
  ;;; contains all possible line-end conversions.
  (defun create-file-variants (file-name symbol)
    (loop :for eol-style :in '(:lf :cr :crlf) :collect
          (cons (format nil "~A_~(~A~)_~(~A~).txt"
                        file-name symbol eol-style)
                (babel:make-external-format symbol eol-style))))
  