(in-package :fwoar.cl-git)
 
 (defun offset-distance (vec)
   (+ (loop for v across vec
            for sum = (logand 127 v)
              then (+ (ash sum 7)

                      (logand 127 v))

            finally (return sum))

      (loop for x from 1 below 2
            sum (expt 2 (* 7 x)))))

 
 (defun extract-offset-to-base (s)
   (offset-distance
    (fwoar.bin-parser:extract-high s)))
 
 (defun object-metadata-at-offset (base-position offset s)
   (file-position s (- base-position offset))
   (read-object-metadata-from-pack s))