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:                                 :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"
  
negative.code: ;;; different encodings of the corresponding file returns a list of
  ;;; lists which can be used as arglists for COMPARE-FILES.
  (defun create-test-combinations (file-name symbols)
    (let ((file-variants (loop :for symbol :in symbols
                               :nconc (create-file-variants file-name symbol))))
      (loop :for (name-in . external-format-in) :in file-variants
            :nconc (loop :for (name-out . external-format-out) :in file-variants
                         :collect (list name-in external-format-in
                                        name-out external-format-out)))))
  
  ;;; Returns a true value iff FILE1 and FILE2 have the same contents
  ;;; (viewed as binary files).
  