anchor.diff:                                                                           (sys.int::ub32ref/le superblock 244)
                                                                            (sys.int::ub32ref/le superblock 248)))
                        :def-hash-version (aref superblock 252)
  +                     :jnl-backup-type (aref superblock 253)
  +                     :desc-size (sys.int::ub16ref/le superblock 254)
                        :default-mount-options (sys.int::ub32ref/le superblock 256)
  -                     :first-meta-bg (sys.int::ub32ref/le superblock 260))))
  +                     :first-meta-bg (sys.int::ub32ref/le superblock 260)
  +                     :mkfs-time (sys.int::ub32ref/le superblock 264)
  +                     :jnl-blocks (make-array '(17) :element-type '(unsigned-byte 32)
  +                                                   :initial-contents (loop :for i :from 268 :to 332 :by 4
  +                                                                           :collect (sys.int::ub32ref/le superblock i)))
  +                     :min-extra-isize (sys.int::ub16ref/le superblock 348)
  +                     :want-extra-isize (sys.int::ub16ref/le superblock 350)
  +                     :flags (sys.int::ub32ref/le superblock 352)
  +                     :raid-stride (sys.int::ub16ref/le superblock 356)
  +                     :mmp-interval (sys.int::ub16ref/le superblock 358)
  +                     :mmp-block (sys.int::ub64ref/le superblock 360)
  +                     :raid-stripe-width (sys.int::ub32ref/le superblock 368)
  +                     :log-groups-per-flex (aref superblock 372)
  +                     :checksum-type (aref superblock 373)
  +                     :reserved-pad (sys.int::ub16ref/le superblock 374)
  +                     :kbytes-written (sys.int::ub64ref/le superblock 376)
  +                     :snapshot-inum (sys.int::ub32ref/le superblock 384)
  +                     :snapshot-id (sys.int::ub32ref/le superblock 388)
  +                     :snapshot-r-blocks-count (sys.int::ub64ref/le superblock 392)
  +                     :snapshot-list (sys.int::ub32ref/le superblock 400)
  +                     :error-count (sys.int::ub32ref/le superblock 404)
  +                     :first-error-time (sys.int::ub32ref/le superblock 408)
  +                     :first-error-ino (sys.int::ub32ref/le superblock 412)
  +                     :first-error-block (sys.int::ub64ref/le superblock 416)
  +                     :first-error-func (make-array '(32) :element-type '(unsigned-byte 8)
  +                                                         :initial-contents (loop :for i :from 424 :to 455
  +                                                                                 :collect (aref superblock i)))
  +                     :first-error-line (sys.int::ub32ref/le superblock 456)
  +                     :last-error-time (sys.int::ub32ref/le superblock 460)
  +                     :last-error-ino (sys.int::ub32ref/le superblock 464)
  +                     :last-error-line (sys.int::ub32ref/le superblock 468)
  +                     :last-error-block (sys.int::ub64ref/le superblock 472)
  +                     :last-error-func (make-array '(32) :element-type '(unsigned-byte 8)
  +                                                        :initial-contents (loop :for i :from 480 :to 511
  +                                                                                :collect (aref superblock i)))
  +                     :mount-opts (make-array '(64) :element-type '(unsigned-byte 8)
  +                                                   :initial-contents (loop :for i :from 512 :to 575
  +                                                                           :collect (aref superblock i)))
  +                     :usr-quota-inum (sys.int::ub32ref/le superblock 576)
  +                     :grp-quota-inum (sys.int::ub32ref/le superblock 580)
  +                     :overhead-blocks (sys.int::ub32ref/le superblock 584)
  +                     :backup-bgs (make-array '(2) :element-type '(unsigned-byte 32)
  +                                                  :initial-contents (loop :for i :from 588 :to 592 :by 4
  +                                                                          :collect (sys.int::ub32ref/le superblock i)))
  +                     :encrypt-algos (make-array '(4) :element-type '(unsigned-byte 8)
  +                                                     :initial-contents (loop :for i :from 596 :to 599
  +                                                                             :collect (aref superblock i)))
  +                     :encrypt-pw-salt (make-array '(16) :element-type '(unsigned-byte 8)
  +                                                        :initial-contents (loop :for i :from 600 :to 615
  +                                                                                :collect (aref superblock i)))
  +                     :lpf-ino (sys.int::ub32ref/le superblock 616)
  +                     :prj-quota-inum (sys.int::ub32ref/le superblock 620)
  +                     :checksum-seed (sys.int::ub32ref/le superblock 624)
  +                     :reserved (make-array '(98) :element-type '(unsigned-byte 32)
  +                                                 :initial-contents (loop :for i :from 628 :to 1016 :by 4
  +                                                                         :collect (sys.int::ub32ref/le superblock i)))
  +                     :checksum (sys.int::ub32ref/le superblock 1020))))
   
   (defun block-size (disk superblock)
     "Take disk and superblock, return block size in disk sectors"
  
positive.code:                                    (sys.int::ub64ref/le superblock 104))
                       :volume-name (map 'string #'code-char (subseq superblock 120 136))
                       :last-mounted (map 'string #'code-char (subseq superblock 136 200))
                       :algo-bitmap (sys.int::ub32ref/le superblock 200)
                       :prealloc-blocks (aref superblock 204)
                       :prealloc-dir-blocks (aref superblock 205)
                       :journal-uuid (logior (ash (sys.int::ub64ref/le superblock 216) 64)
                                             (sys.int::ub64ref/le superblock 208))
                       :journal-inum (sys.int::ub32ref/le superblock 224)
  
negative.code:     (check-magic magic)
      (check-feature-incompat feature-incompat)
      (make-superblock :inodes-count (sys.int::ub32ref/le superblock 0)
                       :blocks-count (logior (ash (sys.int::ub32ref/le superblock 336) 64)
                                             (sys.int::ub32ref/le superblock 4))
                       :r-blocks-count (logior (ash (sys.int::ub32ref/le superblock 340) 64)
                                               (sys.int::ub32ref/le superblock 8))
                       :free-blocks-count (logior (ash (sys.int::ub32ref/le superblock 344) 64)
                                                  (sys.int::ub32ref/le superblock 12))
                       :free-inodes-count (sys.int::ub32ref/le superblock 16)
                       :first-data-block (sys.int::ub32ref/le superblock 20)
                       :log-block-size (sys.int::ub32ref/le superblock 24)
                       :log-cluster-size (sys.int::ub32ref/le superblock 28)
                       :blocks-per-group (sys.int::ub32ref/le superblock 32)
                       :clusters-per-group (sys.int::ub32ref/le superblock 36)
                       :inodes-per-group (sys.int::ub32ref/le superblock 40)
                       :mtime (sys.int::ub32ref/le superblock 44)
                       :wtime (sys.int::ub32ref/le superblock 48)
  