anchor.diff:             (progn
                (make-link link :target file)
                (namestring (read-link link)))
  -        (delete-file link)
  -        (delete-file file)))
  +        (osicat-posix:unlink link)
  +        (osicat-posix:unlink file)))
     #.(namestring (merge-pathnames "tmp-file" *test-directory*)))
   
   (deftest make-link.2
  
positive.code:            (link (ensure-link "tmp-link" :target file)))
        (unwind-protect
             (file-kind link)
          (delete-file link)
          (delete-file file)))
    :symbolic-link)
  
  (deftest file-kind.4
      (let ((file (ensure-file "tmp-file")))
        (unwind-protect
             (file-kind file)
          (delete-file file)))
    :regular-file)
  
  (deftest file-permissions.1
  
negative.code:            (progn
               (make-link link :target *test-directory*)
               (namestring (read-link link)))
          (osicat-posix:unlink link)))
    #.(namestring *test-directory*))
  
  ;;; Test the case of reading a link with a very long name.
  