anchor.diff:                     :type type
                      :version :newest)))
   
  -(defmethod parse-namestring-using-host ((host ext-host) namestring junk-allowed)
  +(defmethod parse-namestring-using-host ((host ext4-host) namestring junk-allowed)
     (assert (not junk-allowed) (junk-allowed) "Junk-allowed not implemented yet")
     (parse-simple-file-path host namestring))
   
  -(defmethod namestring-using-host ((host ext-host) pathname)
  +(defmethod namestring-using-host ((host ext4-host) pathname)
     (when (pathname-device pathname)
       (error 'no-namestring-error
              :pathname pathname
  
positive.code:                 stack))))
      (return-from directory-using-host stack)))
  
  ;; (defmethod ensure-directories-exist-using-host ((host ext-host) pathname &key verbose))
  
  ;; (defmethod rename-file-using-host ((host ext-host) source dest))
  
  ;; (defmethod file-write-date-using-host ((host ext-host) path))
  
  ;; (defmethod delete-file-using-host ((host ext-host) path &key))
  
  (defmethod expunge-directory-using-host ((host ext-host) path &key)
    (declare (ignore host path))
    t)
  
  
negative.code: 
  ;;; Host integration
  
  (defclass ext4-host ()
    ((%name :initarg :name
            :reader host-name)
     (%lock :initarg :lock
            :reader ext4-host-lock)
     (%partition :initarg :partition
                 :reader partition)
     (%superblock :initarg :superblock
  