anchor.diff:  (defun vpprint-frame-header (id3-frame)
     (with-output-to-string (stream)
       (with-slots (pos version id len flags) id3-frame
  -      (format stream "offset: ~:d, version = ~d, id: ~a, len: ~:d, ~a"
  -              pos version id len
  +      (format stream "offset: ~:d, version = ~d, id: ~a, description: ~a, len: ~:d, flags: ~a"
  +              pos version id
  +              (aif (get-frame-db-entry id)
  +                   (frame-db-entry-text it)
  +                   "Non-standard")
  +              len
                 (if flags
                     (print-frame-flags version flags nil)
                     "flags: none")))))
  
positive.code:   (ecase version
      (2 (format stream "None"))
      (3 (format stream
                 "flags: 0x~4,'0x: ~:[0/~;tag-alter-preservation/~]~:[0/~;file-alter-preservation/~]~:[0/~;read-only/~]~:[0/~;compress/~]~:[0/~;encypt/~]~:[0~;group~]"
                 flags
                 (frame-23-altertag-p flags)
                 (frame-23-alterfile-p flags)
  
negative.code:     (1 (flex:octets-to-string octets :external-format :ucs-2 :start start :end end))
      (2 (flex:octets-to-string octets :external-format :ucs-2be :start start :end end))
      (3 (flex:octets-to-string octets :external-format :utf-8 :start start :end end))))
  
  ;;;; V22 frame types:
  (defparameter *v22-frame-names* '(("BUF" "Recommended buffer size")
                                    ("CNT" "Play counter")
                                    ("COM" "Comments")
                                    ("CRA" "Audio encryption")
                                    ("CRM" "Encrypted meta frame")
                                    ("EQU" "Equalization")
                                    ("ETC" "Event timing codes")
                                    ("GEO" "General encapsulated object")
                                    ("IPL" "Involved people list")
                                    ("LNK" "Linked information")
                                    ("MCI" "Music CD Identifier")
                                    ("MLL" "MPEG location lookup table")
                                    ("PIC" "Attached picture")
                                    ("POP" "Popularimeter")
                                    ("REV" "Reverb")
                                    ("RVA" "Relative volume adjustment")
                                    ("SLT" "Synchronized lyric/text")
                                    ("STC" "Synced tempo codes")
                                    ("TAL" "Album/Movie/Show title")
                                    ("TBP" "BPM (Beats Per Minute)")
                                    ("TCM" "Composer")
                                    ("TCO" "Content type")
                                    ("TCR" "Copyright message")
                                    ("TDA" "Date")
                                    ("TDY" "Playlist delay")
                                    ("TEN" "Encoded by")
                                    ("TFT" "File type")
                                    ("TIM" "Time")
                                    ("TKE" "Initial key")
                                    ("TLA" "Language(s)")
                                    ("TLE" "Length")
                                    ("TMT" "Media type")
                                    ("TOA" "Original artist(s)/performer(s)")
                                    ("TOF" "Original filename")
                                    ("TOL" "Original Lyricist(s)/text writer(s)")
                                    ("TOR" "Original release year")
                                    ("TOT" "Original album/Movie/Show title")
                                    ("TP1" "Lead artist(s)/Lead performer(s)/Soloist(s)/Performing group")
                                    ("TP2" "Band/Orchestra/Accompaniment")
                                    ("TP3" "Conductor/Performer refinement")
                                    ("TP4" "Interpreted, remixed, or otherwise modified by")
                                    ("TPA" "Part of a set")
                                    ("TPB" "Publisher")
                                    ("TRC" "ISRC (International Standard Recording Code)")
                                    ("TRD" "Recording dates")
                                    ("TRK" "Track number/Position in set")
                                    ("TSI" "Size")
                                    ("TSS" "Software/hardware and settings used for encoding")
                                    ("TT1" "Content group description")
                                    ("TT2" "Title/Songname/Content description")
                                    ("TT3" "Subtitle/Description refinement")
                                    ("TXT" "Lyricist/text writer")
                                    ("TXX" "User defined text information frame")
                                    ("TYE" "Year")
                                    ("UFI" "Unique file identifier")
                                    ("ULT" "Unsychronized lyric/text transcription")
                                    ("WAF" "Official audio file webpage")
                                    ("WAR" "Official artist/performer webpage")
                                    ("WAS" "Official audio source webpage")
                                    ("WCM" "Commercial information")
                                    ("WCP" "Copyright/Legal information")
                                    ("WPB" "Publishers official webpage")
                                    ("WXX" "User defined URL link frame")))
  ;;;; V23 frame names
  (defparameter *v23-frame-names* '(("AENC" "Audio encryption")
                                    ("APIC" "Attached picture")
                                    ("COMM" "Comments")
                                    ("COMR" "Commercial frame")
                                    ("ENCR" "Encryption method registration")
                                    ("EQUA" "Equalization")
                                    ("ETCO" "Event timing codes")
                                    ("GEOB" "General encapsulated object")
                                    ("GRID" "Group identification registration")
                                    ("IPLS" "Involved people list")
                                    ("LINK" "Linked information")
                                    ("MCDI" "Music CD identifier")
                                    ("MLLT" "MPEG location lookup table")
                                    ("OWNE" "Ownership frame")
                                    ("PCNT" "Play counter")
                                    ("POPM" "Popularimeter")
                                    ("POSS" "Position synchronisation frame")
                                    ("PRIV" "Private frame")
                                    ("RBUF" "Recommended buffer size")
                                    ("RVAD" "Relative volume adjustment")
                                    ("RVRB" "Reverb")
                                    ("SYLT" "Synchronized lyric/text")
                                    ("SYTC" "Synchronized tempo codes")
                                    ("TALB" "Album/Movie/Show title")
                                    ("TBPM" "BPM (beats per minute)")
                                    ("TCOM" "Composer")
                                    ("TCON" "Content type")
                                    ("TCOP" "Copyright message")
                                    ("TDAT" "Date")
                                    ("TDLY" "Playlist delay")
                                    ("TENC" "Encoded by")
                                    ("TEXT" "Lyricist/Text writer")
                                    ("TFLT" "File type")
                                    ("TIME" "Time")
                                    ("TIT1" "Content group description")
                                    ("TIT2" "Title/songname/content description")
                                    ("TIT3" "Subtitle/Description refinement")
                                    ("TKEY" "Initial key")
                                    ("TLAN" "Language(s)")
                                    ("TLEN" "Length")
                                    ("TMED" "Media type")
                                    ("TOAL" "Original album/movie/show title")
                                    ("TOFN" "Original filename")
                                    ("TOLY" "Original lyricist(s)/text writer(s)")
                                    ("TOPE" "Original artist(s)/performer(s)")
                                    ("TORY" "Original release year")
                                    ("TOWN" "File owner/licensee")
                                    ("TPE1" "Lead performer(s)/Soloist(s)")
                                    ("TPE2" "Band/orchestra/accompaniment")
                                    ("TPE3" "Conductor/performer refinement")
                                    ("TPE4" "Interpreted, remixed, or otherwise modified by")
                                    ("TPOS" "Part of a set")
                                    ("TPUB" "Publisher")
                                    ("TRCK" "Track number/Position in set")
                                    ("TRDA" "Recording dates")
                                    ("TRSN" "Internet radio station name")
                                    ("TRSO" "Internet radio station owner")
                                    ("TSIZ" "Size")
                                    ("TSRC" "ISRC (international standard recording code)")
                                    ("TSSE" "Software/Hardware and settings used for encoding")
                                    ("TXXX" "User defined text information frame")
                                    ("TYER" "Year")
                                    ("UFID" "Unique file identifier")
                                    ("USER" "Terms of use")
                                    ("USLT" "Unsychronized lyric/text transcription")
                                    ("WCOM" "Commercial information")
                                    ("WCOP" "Copyright/Legal information")
                                    ("WOAF" "Official audio file webpage")
                                    ("WOAR" "Official artist/performer webpage")
                                    ("WOAS" "Official audio source webpage")
                                    ("WORS" "Official internet radio station homepage")
                                    ("WPAY" "Payment")
                                    ("WPUB" "Publishers official webpage")
                                    ("WXXX" "User defined URL link frame")))
  (defparameter *v24-frame-names* '(("AENC" "Audio encryption")
                                    ("APIC" "Attached picture")
                                    ("ASPI" "Audio seek point index")
                                    ("COMM" "Comments")
                                    ("COMR" "Commercial frame")
                                    ("ENCR" "Encryption method registration")
                                    ("EQU2" "Equalisation (2)")
                                    ("ETCO" "Event timing codes")
                                    ("GEOB" "General encapsulated object")
                                    ("GRID" "Group identification registration")
                                    ("LINK" "Linked information")
                                    ("MCDI" "Music CD identifier")
                                    ("MLLT" "MPEG location lookup table")
                                    ("OWNE" "Ownership frame")
                                    ("PCNT" "Play counter")
                                    ("POPM" "Popularimeter")
                                    ("POSS" "Position synchronisation frame")
                                    ("PRIV" "Private frame")
                                    ("RBUF" "Recommended buffer size")
                                    ("RVA2" "Relative volume adjustment (2)")
                                    ("RVRB" "Reverb")
                                    ("SEEK" "Seek frame")
                                    ("SIGN" "Signature frame")
                                    ("SYLT" "Synchronised lyric/text")
                                    ("SYTC" "Synchronised tempo codes")
                                    ("TALB" "Album/Movie/Show title")
                                    ("TBPM" "BPM (beats per minute)")
                                    ("TCOM" "Composer")
                                    ("TCON" "Content type")
                                    ("TCOP" "Copyright message")
                                    ("TDEN" "Encoding time")
                                    ("TDLY" "Playlist delay")
                                    ("TDOR" "Original release time")
                                    ("TDRC" "Recording time")
                                    ("TDRL" "Release time")
                                    ("TDTG" "Tagging time")
                                    ("TENC" "Encoded by")
                                    ("TEXT" "Lyricist/Text writer")
                                    ("TFLT" "File type")
                                    ("TIPL" "Involved people list")
                                    ("TIT1" "Content group description")
                                    ("TIT2" "Title/songname/content description")
                                    ("TIT3" "Subtitle/Description refinement")
                                    ("TKEY" "Initial key")
                                    ("TLAN" "Language(s)")
                                    ("TLEN" "Length")
                                    ("TMCL" "Musician credits list")
                                    ("TMED" "Media type")
                                    ("TMOO" "Mood")
                                    ("TOAL" "Original album/movie/show title")
                                    ("TOFN" "Original filename")
                                    ("TOLY" "Original lyricist(s)/text writer(s)")
                                    ("TOPE" "Original artist(s)/performer(s)")
                                    ("TOWN" "File owner/licensee")
                                    ("TPE1" "Lead performer(s)/Soloist(s)")
                                    ("TPE2" "Band/orchestra/accompaniment")
                                    ("TPE3" "Conductor/performer refinement")
                                    ("TPE4" "Interpreted, remixed, or otherwise modified by")
                                    ("TPOS" "Part of a set")
                                    ("TPRO" "Produced notice")
                                    ("TPUB" "Publisher")
                                    ("TRCK" "Track number/Position in set")
                                    ("TRSN" "Internet radio station name")
                                    ("TRSO" "Internet radio station owner")
                                    ("TSOA" "Album sort order")
                                    ("TSOP" "Performer sort order")
                                    ("TSOT" "Title sort order")
                                    ("TSRC" "ISRC (international standard recording code)")
                                    ("TSSE" "Software/Hardware and settings used for encoding")
                                    ("TSST" "Set subtitle")
                                    ("TXXX" "User defined text information frame")
                                    ("UFID" "Unique file identifier")
                                    ("USER" "Terms of use")
                                    ("USLT" "Unsynchronised lyric/text transcription")
                                    ("WCOM" "Commercial information")
                                    ("WCOP" "Copyright/Legal information")
                                    ("WOAF" "Official audio file webpage")
                                    ("WOAR" "Official artist/performer webpage")
                                    ("WOAS" "Official audio source webpage")
                                    ("WORS" "Official Internet radio station homepage")
                                    ("WPAY" "Payment")
                                    ("WPUB" "Publishers official webpage")
                                    ("WXXX" "User defined URL link frame")))
  
  (defstruct frame-db-entry
    text
    (is-v22 nil)
    (is-v23 nil)
    (is-v24 nil))
  
  (defparameter *frame-db* nil)
  
  (defmacro make-frame-db ()
    `(progn
       (setf *frame-db* (make-hash-table :test #'equalp))
       (dolist (s *v22-frame-names*)
         (setf (gethash (first s) *frame-db*)
               (make-frame-db-entry :text (second s) :is-v22 t)))
       (dolist (s *v23-frame-names*)
         (setf (gethash (first s) *frame-db*)
               (make-frame-db-entry :text (second s) :is-v23 t)))
       (dolist (s *v24-frame-names*)
         (multiple-value-bind (val found) (gethash (first s) *frame-db*)
           (setf (gethash (first s) *frame-db*)
                 (if found
                     (progn
                       (setf (frame-db-entry-is-v24 val) t)
                       val)
                     (make-frame-db-entry :text (second s) :is-v24 t)))))))
  (make-frame-db)
  
  (defun get-frame-db-entry (id)
    "Given a frame id/name, return the associated FRAME-DB-ENTRY"
    (declare #.utils:*standard-optimize-settings*)
  
    (gethash id *frame-db*))
  
  ;;;; ID3 header/extended header/v2.1 header
  (defclass id3-header ()
  