anchor.diff:  
       parsed-info))
   
  -(defparameter *ilst-data* (list +root+ +mp4-atom-moov+ +mp4-atom-udta+
  -                                +mp4-atom-meta+ +mp4-atom-ilst+ nil)
  +(defparameter *ilst-data* (list +itunes-root+ +itunes-movie+ +itunes-user-data+
  +                                +itunes-metadata+ +itunes-item-list+ nil)
     "iTunes artist/album/etc path. The 5th element should be set to
   one of the +iTunes- constants")
   
  
positive.code:     (when (= 0 siz)
        (error "trying to make an atom ~a with size of 0 at offset ~:d in file ~a"
               typ pos (stream-filename mp4-file)))
  
      (setf atom (make-instance (find-atom-class typ)
                                :atom-size siz
  
negative.code:           (tree:find-tree
             (mp4-atoms mp4-file)
             (lambda (x)
               (string= (atom-type (tree:data x)) +itunes-media-header+))))
          (mp4a (tree:find-tree
                 (mp4-atoms mp4-file)
                 (lambda (x)
                   (string= (atom-type (tree:data x)) +itunes-mp4a-codec+))))
          (esds (tree:find-tree
                 (mp4-atoms mp4-file)
                 (lambda (x)
                   (string= (atom-type (tree:data x)) +itunes-elementary-stream-descriptor+)))))
  
      (if (and mdhd mp4a esds)
          (values (tree:data (first mdhd))
  