anchor.diff:          (mp4-count 0)
           (other-count 0))
       (cl-fad:walk-directory dir (lambda (f)
  -                                 (do-audio-file f :func (lambda (s)
  -                                                          (cond ((typep s 'mp3-file-stream)  (incf mp3-count))
  -                                                                ((typep s 'flac-file-stream) (incf flac-count))
  -                                                                ((typep s 'mp4-file-stream)  (incf mp4-count))
  -                                                                ((null s)                    (incf other-count)))
  -                                                          (when (and (not (null s)) func) (funcall func s))))))
  +                                 (do-audio-file :file f
  +                                   :func (lambda (s)
  +                                           (cond ((typep s 'mp3-file-stream)  (incf mp3-count))
  +                                                 ((typep s 'flac-file-stream) (incf flac-count))
  +                                                 ((typep s 'mp4-file-stream)  (incf mp4-count))
  +                                                 ((null s)                    (incf other-count)))
  +                                           (when (and (not (null s)) func) (funcall func s))))))
   
       (format t "~&~:d MP3s, ~:d MP4s, ~:d FLACs, ~:d Others, for a total of ~:d~%"
               mp3-count mp4-count flac-count other-count (+ mp3-count mp4-count flac-count other-count))))
   
  -(defun time-test (&optional (dir "Queen") &key (file-system-encoding :utf-8) (do-audio-processing t))
  +(defun time-test (&key (dir "/home/markv/Music/Queen") (file-system-encoding :utf-8) (do-audio-processing t))
     "Time parsing of DIR."
  +  (set-pathname-encoding file-system-encoding)
     (let ((audio-streams:*get-audio-info* do-audio-processing))
  -    (time (do-audio-dir dir :file-system-encoding file-system-encoding :func nil))))
  +    (time (do-audio-dir :dir dir :file-system-encoding file-system-encoding :func nil))))
   
   ;;;;;;;;;;;;;;;;;;;; multi-thread code below ;;;;;;;;;;;;;;;;;;;;
   (defparameter *end-thread*  #xdeadbeef)
  
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)
  