anchor.diff:             #:ensure-directories-exist-using-host
              #:rename-file-using-host
              #:file-write-date-using-host
  +           #:file-author-using-host
              #:delete-file-using-host
              #:expunge-directory-using-host
              #:file-stream-pathname
  
positive.code:     (values dest source dest)))
  
  (defgeneric file-write-date-using-host (host path))
  
  (defun file-write-date (pathspec)
    (let ((path (translate-logical-pathname (merge-pathnames pathspec))))
  
negative.code:     (file-write-date-using-host (pathname-host path) path)))
  
  (defgeneric file-author-using-host (host path))
  (defmethod file-author-using-host (host path)
    nil)
  
  (defun file-author (pathspec)
    (let ((path (translate-logical-pathname (merge-pathnames pathspec))))
  