anchor.diff:                  (eq :directory (file-kind dir))
                   (eq :error (handler-case (delete-directory dir)
                                (error () :error))))
  -        (delete-file file)))
  +        (osicat-posix:unlink file)))
     t)
   
   ;;; FIXME: (user-homedir-pathname) is "home:" under CMUCL, so this
  
positive.code:            (progn
               (make-link link :target file)
               (file-kind link))
          (delete-file file)
          (delete-file link)))
    :symbolic-link)
  
  ;;; Test the case of reading a link to a directory.
  
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
  