anchor.diff:  ;;; :UTF-8
   (defun set-pathname-encoding (enc)
     #+CCL (setf (ccl:pathname-encoding-name) enc)
  +  #-CCL (declare (ignore enc))
     t)
   
   (defun set-pathname-encoding-for-osx ()   (set-pathname-encoding :utf-8))
   (defun set-pathname-encoding-for-linux () (set-pathname-encoding nil))
   
  -(defun do-audio-file (&optional (file *song-m4a*) &key (func (constantly t)))
  +(defun do-audio-file (&key (file *song-m4a*) (func (constantly t)))
     "Parse one audio file (with condition handling)."
     (let ((foo))
       (unwind-protect
  
positive.code:       (when foo
          (stream-close foo)))))
  
  (defun do-audio-dir (&optional (dir "../Music/Queen") &key (file-system-encoding :utf-8)
                                                    (func #'abstract-tag:show-tags))
    "Walk :DIR and FUNCALL specified function for each file audio found."
    (set-pathname-encoding file-system-encoding)
    (let ((mp3-count 0)
  
negative.code:   mp4-count
    other-count)
  
  (defun mp-do-audio-dir (&key (dir "/home/markv/Music/Queen") (file-system-encoding :utf-8)
                                                       (func #'abstract-tag:show-tags))
    "Walk :DIR and FUNCALL specified function for each file audio found."
    (set-pathname-encoding file-system-encoding)
  