anchor.diff:    (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))
  +    (buffered-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))
  
positive.code:   (let ((path (unparse-simple-file-path pathname))
          (x nil))
      (with-connection (con host)
        (format con "(:DIRECTORY ~S)~%" path)
        (setf x (read-preserving-whitespace con))
        (unless (and (listp x) (eql (first x) :ok))
          (error 'simple-file-error
  
negative.code: (defun truename (pathname)
    (pathname pathname))
  
  (defun buffered-format (stream control-stream &rest args)
    (write-sequence (apply 'format nil control-stream args) stream))
  
  (defmacro with-connection ((var host) &body body)
    `(sys.net::with-open-network-stream (,var (host-address ,host) (host-port ,host))
       ,@body))
  