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:                 (push :user-exec (file-permissions file))
                  (member :user-exec (file-permissions file))
                  t)
          (delete-file file)))
    t)
  
  (deftest make-link.1
  
negative.code:            (link (ensure-link "tmp-link" :target file)))
        (unwind-protect
             (file-kind link)
          (osicat-posix:unlink link)
          (osicat-posix:unlink file)))
    :symbolic-link)
  
  (deftest file-kind.4
      (let ((file (ensure-file "tmp-file")))
        (unwind-protect
             (file-kind file)
          (osicat-posix:unlink file)))
    :regular-file)
  
  (deftest file-permissions.1
  