anchor.diff:               (make-link link :target file)
                (equal (namestring (merge-pathnames file *test-directory*))
                       (namestring (read-link link))))
  -        (delete-file link)
  -        (delete-file file)))
  +        (osicat-posix:unlink link)
  +        (osicat-posix:unlink file)))
     t)
   
   (deftest makunbound-environment-variable.1
  
positive.code:            (progn
               (make-link link :target file)
               (namestring (read-link link)))
          (delete-file link)
          (delete-file file)))
    #.(namestring (merge-pathnames "tmp-file" *test-directory*)))
  
  (deftest make-link.2
  
negative.code:              (mapdir (lambda (x)
                         (pathname-directory (merge-pathnames x)))
                       dir))
          (osicat-posix:unlink file)
          (delete-directory dir)))
    (#.(pathname-directory (merge-pathnames "mapdir-test/" *test-directory*))))
  
  