anchor.diff:    (assert (eql (first (pathname-directory source)) :absolute) (source) "Absoute pathname required.")
     (assert (eql (first (pathname-directory dest)) :absolute) (dest) "Absoute pathname required.")
     (with-connection (con host)
  -    (format con "(:RENAME-FILE ~S ~S)~%"
  +    (buffered-format con "(:RENAME-FILE ~S ~S)~%"
               (unparse-simple-file-path source)
               (unparse-simple-file-path dest))
       (let ((x (read-preserving-whitespace con)))
  
positive.code:   (declare (ignore host))
    (assert (eql (first (pathname-directory path)) :absolute) (path) "Absoute pathname required.")
    (with-connection (con host)
      (format con "(:FILE-WRITE-DATE ~S)~%" (unparse-simple-file-path path))
      (let ((x (read-preserving-whitespace con)))
        (unless (or (integerp x) (null x))
          (error "Error: ~A ~S." path x))
  
negative.code:   (declare (ignore host))
    (assert (eql (first (pathname-directory path)) :absolute) (path) "Absoute pathname required.")
    (with-connection (con host)
      (buffered-format con "(:DELETE ~S)~%" (unparse-simple-file-path path))
      (let ((x (read-preserving-whitespace con)))
        (unless (eql x :ok)
          (error "Error: ~A ~S." path x))
  