anchor.diff:                     :name name
                      :type type
                      :version version)))
  -
  -(defmethod parse-namestring-using-host ((host remote-file-host) namestring junk-allowed)
  -  (when junk-allowed
  -    (error "TODO: Junk-allowed"))
  -  (parse-remote-file-path host namestring))
   
   (defun unparse-remote-file-path (pathname)
     (when (pathname-device pathname)
  
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:                        :address address
                         :port port)))
  
  (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 '())
  