anchor.diff:  (memoize 'mk-atom-class-name)
   
   (eval-when (:compile-toplevel :load-toplevel :execute)
  +  (defun as-octets (str)
  +    (declare #.utils:*standard-optimize-settings*)
  +    (let ((ret 0))
  +      (setf (ldb (byte 8 24) ret) (char-code (aref str 0)))
  +      (setf (ldb (byte 8 16) ret) (char-code (aref str 1)))
  +      (setf (ldb (byte 8  8) ret) (char-code (aref str 2)))
  +      (setf (ldb (byte 8  0) ret) (char-code (aref str 3)))
  +      ret))
  +
     (defun as-string (atom-type)
       "Given an integer, return the string representation"
       (declare #.utils:*standard-optimize-settings*)
  
positive.code:           samp-rate   (stream-read-u32 mp4-file))) ; fixed 16.16 floating point number
    (call-next-method))
  
  (defclass |atom-meta| (mp4-container-atom)
    ((version  :accessor version)
     (flags    :accessor flags)))
  
  
negative.code:     (setf atom-version (stream-read-u8 mp4-file)
            atom-flags   (stream-read-u24 mp4-file)
            atom-locale  (stream-read-u32 mp4-file))
  
      ;(dbg 'atom-data-init atom-version atom-flags atom-locale)
  
      ;; Ideally, we would be able to read the atom's value by looking
      ;; solely at the atom-flags; however, when atom-flags == 0, then
  