anchor.diff:            samp-rate   (stream-read-u32 mp4-file))) ; fixed 16.16 floating point number
     (call-next-method))
   
  -(defclass atom-meta (mp4-container-atom)
  +(defclass |atom-meta| (mp4-container-atom)
     ((version  :accessor version)
      (flags    :accessor flags)))
   
  -(defmethod initialize-instance :around ((me atom-meta) &key mp4-file &allow-other-keys)
  +(defmethod initialize-instance :around ((me |atom-meta|) &key mp4-file &allow-other-keys)
     (declare #.utils:*standard-optimize-settings*)
   
      (with-slots (version flags) me
  
positive.code:       ;; but for now, we have what we want, so just seek to end of atom
        (stream-seek mp4-file end-of-atom :start))))
  
  (defclass atom-stsd (mp4-atom)
    ((flags       :accessor flags)
     (version     :accessor version)
     (num-entries :accessor num-entries)))
  
  (defmethod initialize-instance :after ((me atom-stsd) &key mp4-file &allow-other-keys)
    (declare #.utils:*standard-optimize-settings*)
  
    (with-slots (flags version num-entries) me
  
negative.code: (defconstant* +mp4-extdescrtagsstart+       #x80)
  (defconstant* +mp4-extdescrtagsend+         #xfe)
  
  (defmethod initialize-instance :after ((me |atom-esds|) &key mp4-file &allow-other-keys)
    (declare #.utils:*standard-optimize-settings*)
  
    (with-slots (version flags esid s-priority obj-id s-type buf-size max-bit-rate avg-bit-rate) me
  