anchor.diff:        (when foo (stream-close foo)))
       foo))
   
  -(defun mp3-test1 ()
  -  (mp3-test0 *song-mp3*))
  -
  -(defun mp3-test2 (&key (dir "Queen") (raw nil) (file-system-encoding :utf-8))
  +(defun mp3-test2 (&optional (dir "Queen") &key (raw nil) (file-system-encoding :utf-8))
     "Walk :DIR and parse every MP3 we find."
     (set-pathname-encoding file-system-encoding)
     (osicat:walk-directory dir (lambda (f)
  
positive.code:                                      (mp4-tag:show-tags file :raw raw)))))))
  
  ;;;;;;;;;;;;;;;;;;;; MP3 Tests ;;;;;;;;;;;;;;;;;;;;
  (defun mp3-test0 (file)
    "Parse one MP3 file (with condition handling)."
    (let ((foo))
      (unwind-protect
  
negative.code:       (set-pathname-encoding file-system-encoding)
        (let ((audio-streams:*get-audio-info* do-audio-processing))
          (time (do-dir dir)))
        (format t "~&~:d MP3s, ~:d MP4s, ~:d Others, for a total of ~:d~%"
                mp3-count mp4-count other-count (+ mp3-count mp4-count other-count)))))
  