anchor.diff:  ;; Picture data    <binary data>
   (defclass frame-apic (id3-frame)
     ((encoding :accessor encoding)
  -   (mime     :accessor mime)
  +   (mime     :accessor mime)<
      (type     :accessor type)
      (desc     :accessor desc)
      (data     :accessor data))
  
positive.code: (defclass frame-tyer (frame-text-info) ())
  (defclass frame-trck (frame-text-info) ())
  
  ;; V23/V24 APIC frames
  ;; <Header for 'Attached picture', ID: "APIC">
  ;; Text encoding   $xx
  
negative.code: 	  (multiple-value-bind (n v) (get-name-value-pair instream (- len 5) encoding -1)
  		(setf desc n)
  		(setf data v)
  		(log-id3-frame "encoding: ~d, img-format = <~a>, type = ~d (~a), desc = <~a>, value = ~a"
  				   encoding img-format type (get-picture-type type) desc (printable-array data))))))
  
  (defmethod vpprint ((me frame-pic) stream)
    (with-slots (encoding img-format type desc data) me
  	(format stream "frame-pic: ~a,  encoding ~d, img-format type: <~a>, picture type: ~d (~a), description <~a>, data: ~a"
  			(vpprint-frame-header me) encoding img-format type (get-picture-type type) desc (printable-array data))))
  
  ;; Version 2, 3, or 4 generic text-info frames
  ;; Text information identifier  "T00" - "TZZ", excluding "TXX", or "T000 - TZZZ", excluding "TXXX"
  