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:                                      mezzano.gray:unread-char-mixin)
    ())
  
  (defmacro with-ext-host-locked ((host) &body body)
    `(mezzano.supervisor:with-mutex ((ext-host-lock ,host))
       ,@body))
  
  ;; WIP
  (defmethod open-using-host ((host ext-host) pathname
                              &key direction element-type if-exists if-does-not-exist external-format)
    (with-ext-host-locked (host)
      (let ((file-inode nil)
            (buffer nil)
            (file-position 0)
  
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
  