anchor.diff:                  mp3-count mp4-count flac-count other-count
                   (+ mp3-count mp4-count flac-count other-count)))))
   
  -  (defun mp-time-test (&key (dir "/home/markv/Music/Queen")
  -                            (file-system-encoding :utf-8) (do-audio-processing t))
  +  (defun mp-time-test (&optional (dir "/home/markv/Music/Queen")
  +                                 (do-audio-processing t))
       "Time parsing of DIR."
  -    (set-pathname-encoding file-system-encoding)
       (let ((audio-streams:*get-audio-info* do-audio-processing))
  -      (time (mp-do-audio-dir :dir dir :file-system-encoding file-system-encoding :func nil))))
  +      (time (mp-do-audio-dir dir nil))))
     )
  
positive.code:               (1+ value)
                1))))
  
  (defun get-stats (&key (dir "/home/markv/Music/Queen")
                         (file-system-encoding :utf-8))
    "Gen up some interesting statistics on DIR"
    (let ((m4-ht (make-hash-table :test #'equalp))
          (m3-ht (make-hash-table :test #'equalp)))
      (do-audio-dir
        :dir dir
        :file-system-encoding file-system-encoding
        :func (lambda (s)
                (cond ((typep s 'id3:mp3-file)
                       (id3:map-id3-frames s
                                           :func (lambda (f)
                                                   (insert-into-ht (id3:id f) m3-ht))))
                      ((typep s 'm4a:mp4-file)
                       (m4a:map-mp4-atoms s :func (lambda (f)
                                                    (insert-into-ht (m4a:atom-type f) m4-ht)))))))
      (format t "MP3 Stats:~%")
      (loop for key being the hash-keys of m3-ht
            using (hash-value value)
  
negative.code: (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*)
                                  (func #'abstract-tag:show-tags))
    "Parse one audio file and display the tags"
    (awhen (open-audio-file file)
      (funcall func it)))
  