anchor.diff:                  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)
  +;; (defmethod ensure-directories-exist-using-host ((host ext4-host) pathname &key verbose))
  +
  +;; (defmethod rename-file-using-host ((host ext4-host) source dest))
  +
  +;; (defmethod file-write-date-using-host ((host ext4-host) path))
  +
  +;; (defmethod delete-file-using-host ((host ext4-host) path &key))
  +
  +(defmethod expunge-directory-using-host ((host ext4-host) path &key)
     (declare (ignore host path))
     t)
   
  
positive.code:                             :abort-action abort-action))
              (t (error "Unsupported element-type ~S." element-type))))))
  
  (defmethod probe-using-host ((host ext-host) pathname)
    (multiple-value-bind (inode-n) (find-file host pathname)
      (if inode-n t nil)))
  
  (defmethod directory-using-host ((host ext-host) pathname &key)
    (let ((inode-n (find-file host pathname))
          (disk (partition host))
          (superblock (superblock host))
  
negative.code:                    :type type
                     :version :newest)))
  
  (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 ext4-host) pathname)
    (when (pathname-device pathname)
      (error 'no-namestring-error
             :pathname pathname
  