anchor.diff:  (defclass frame-tyer (frame-text-info) ())
   (defclass frame-trck (frame-text-info) ())
   
  +(defparameter *picture-type*
  +  '("Other"
  +	"32x32 pixels 'file icon' (PNG only)"
  +	"Other file icon"
  +	"Cover (front)"
  +	"Cover (back)"
  +	"Leaflet page"
  +	"Media (e.g. lable side of CD)"
  +	"Lead artist/lead performer/soloist"
  +	"Artist/performer"
  +	"Conductor"
  +	"Band/Orchestra"
  +	"Composer"
  +	"Lyricist/text writer"
  +	"Recording Location"
  +	"During recording"
  +	"During performance"
  +	"Movie/video screen capture"
  +	"A bright coloured fish"	; how do you know the fish is smart :)
  +	"Illustration"
  +	"Band/artist logotype"
  +	"Publisher/Studio logotype"))
  +
  +(defun get-picture-type (n)
  +  "Function to return picture types for APIC frames"
  +  (if (and (>= n 0) (< n (length *picture-type*)))
  +	  (nth n *picture-type*)
  +	  "Unknown"))
  +
   ;; V23/V24 APIC frames
   ;; <Header for 'Attached picture', ID: "APIC">
   ;; Text encoding   $xx
  
positive.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, desc = <~a>, value = ~a"
  				   encoding img-format 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, description <~a>, data: ~a"
  			(vpprint-frame-header me) encoding img-format 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"
  
negative.code: 	  (multiple-value-bind (n v) (get-name-value-pair instream (- len 1 (length mime) 1 1) encoding -1)
  		(setf desc n)
  		(setf data v)
  		(log-id3-frame "enoding = ~d, mime = <~a>, type = ~d (~a), desc = <~a>, data = ~a" encoding mime type (get-picture-type type) desc (printable-array data))))))
  
  (defmethod vpprint ((me frame-apic) stream)
    (with-slots (encoding mime type desc data) me
  	(format stream "frame-apic: ~a, encoding ~d, mime type: ~a, picture type: ~d (~a), description <~a>, data: ~a"
  			(vpprint-frame-header me) encoding mime type (get-picture-type type) desc (printable-array data))))
  
  ;;; V23/V24 COMM frames
  ;;; <Header for 'Comment', ID: "COMM">
  