anchor.diff:  	  (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, descx = <~a>, data = ~a" encoding mime type desc (printable-array data))))))
  +		(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, description <~a>, data: ~a"
  -			(vpprint-frame-header me) encoding mime type desc (printable-array data))))
  +	(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">
  
positive.code: ;; Picture data    <binary data>
  (defclass frame-apic (id3-frame)
    ((encoding :accessor encoding)
     (mime     :accessor mime)
     (type     :accessor type)
     (desc     :accessor desc)
     (data     :accessor data))
  
negative.code: (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
  