anchor.diff:                           :feature-compat (sys.int::ub32ref/le superblock 92)
                            :feature-incompat feature-incompat
                            :feature-ro-compat (sys.int::ub32ref/le superblock 100)
  -                         :uuid (logior (ash (sys.int::ub64ref/le superblock 112) 64)
  -                                       (sys.int::ub64ref/le superblock 104))
  +                         :uuid  (uuid:uuid-buffer->string superblock :offset 104)
                            :volume-name (map 'string #'code-char (subseq superblock 120 136))
                            :last-mounted (map 'string #'code-char (subseq superblock 136 200))
                            :algorithm-bitmap (sys.int::ub32ref/le superblock 200)
                            :prealloc-blocks (aref superblock 204)
                            :prealloc-dir-blocks (aref superblock 205)
                            :reserved-gdt-blocks (sys.int::ub16ref/le superblock 206)
  -                         :journal-uuid (logior (ash (sys.int::ub64ref/le superblock 216) 64)
  -                                               (sys.int::ub64ref/le superblock 208))
  +                         :journal-uuid (uuid:uuid-buffer->string superblock :offset 208)
                            :journal-inum (sys.int::ub32ref/le superblock 224)
                            :journal-dev (sys.int::ub32ref/le superblock 228)
                            :last-orphan (sys.int::ub32ref/le superblock 232)
  
positive.code: 
  (defmethod mount-host ((host ext4-host) block-device)
    (let ((superblock (read-superblock block-device)))
      (when (and superblock (string= (superblock-uuid superblock)
                                     (file-host-mount-args host)))
        (init-host host block-device superblock)
        T)))
  
  
negative.code: (defpackage :mezzano.ext4-file-system
    (:use :cl :mezzano.file-system :mezzano.file-system-cache :mezzano.disk :iterate)
    (:local-nicknames (:sys.int :mezzano.internals)
                      (:sup :mezzano.supervisor)
                      (:uuid :mezzano.uuid))
    (:export))
  
  (in-package :mezzano.ext4-file-system)
  