anchor.diff:  
         (read-container-atoms mp4-file me))))
   
  -(defun read-container-atoms (mp4-file parent-atom)
  -  "Loop through a container atom and add it's children to it"
  -  (declare #.utils:*standard-optimize-settings*)
  -  (with-slots (atom-children atom-file-position atom-of-interest atom-size atom-type atom-decoded) parent-atom
  -    (let ((end (+ atom-file-position atom-size)))
  -      (loop for current = (stream-here mp4-file) then (stream-here mp4-file)
  -            while (< current end) do
  -              (let ((child (make-mp4-atom mp4-file atom-type)))
  -                (log-mp4-atom "read-container-atoms: adding new child ~a" (vpprint child nil))
  -                (addc parent-atom child))))))
  -
   (defclass atom-meta (mp4-atom)
     ((version  :accessor version)
      (flags    :accessor flags)))
  
positive.code:   (with-slots (atom-size atom-type) me
      (stream-seek mp4-file (- atom-size 8) :current)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ILST ATOMS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (defclass atom-ilst (mp4-atom) ())
  
  
negative.code:     (with-slots (atom-size atom-type atom-children) me
        (log-mp4-atom "atom-ilst-init: found ilst atom <~a> @ ~:d, looping for ~:d bytes"
                      (as-string atom-type) (stream-here mp4-file) (- atom-size 8))
        (read-container-atoms mp4-file me))))
  
  
  (defclass atom-©alb (atom-ilst) ())
  (defclass atom-aART (atom-ilst) ())
  