anchor.diff:           ,@body))))
   
   (defvar *data-dir*
  -  (let ((sys-pn (asdf:system-definition-pathname
  -                 (asdf:find-system 'iolib-tests))))
  +  (let ((sys-pn (truename (asdf:system-definition-pathname
  +                           (asdf:find-system 'iolib-tests)))))
       (make-pathname :directory (append (pathname-directory sys-pn)
  -                                      '("tests" "data"))
  -                   :defaults sys-pn)))
  +                                      '("tests" "data")))))
   
   (defvar *test-dir*
     (ensure-directories-exist
  
positive.code:             (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))
    nil)
  
negative.code:                                 :if-does-not-exist :create
                                  :if-exists :supersede
                                  :external-format external-format-out)
        (loop :for line := (read-line in nil nil)
              :while line :do (write-line line out)))))
  
  (defun ef-name (ef)
    (format nil "~A ~A"
  