anchor.diff:                         :address address
                          :port port)))
   
  -(defun parse-remote-file-path (host namestring)
  +(defmethod parse-namestring-using-host ((host remote-file-host) namestring junk-allowed)
  +  (when junk-allowed
  +    (error "TODO: Junk-allowed"))
     (let ((start 0)
           (end (length namestring))
           (directory '())
  
positive.code:         (type nil)
          (version nil))
      (when (eql start end)
        (return-from parse-remote-file-path (make-pathname :host host)))
      (cond ((eql (char namestring start) #\/)
             (push :absolute directory)
             (incf start))
  
negative.code:                    :name name
                     :type type
                     :version version)))
  
  (defun unparse-remote-file-path (pathname)
    (when (pathname-device pathname)
  