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:     (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))))
  
  ;;;; ID3 header/extended header/v2.1 header
  (defclass id3-header ()
  
negative.code:   (ecase version
      (2 (format stream "None"))
      (3 (format stream
                 "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)
  