anchor.diff:  		     (when (eql cur (cl-video:final audio-rec))
   		       (return))
   		     (sleep (cl-video:frame-delay audio-rec)))
  -	     (cl-video:stream-playback-stop audio-rec)))
  +	     (cl-video:stream-playback-stop audio-rec)
  +	     (cl-video:close-sink aout)))
          :name "Trentino audio worker"))))
   
   (defun compute-window-size (container)
  
positive.code: (defun decode-file (pathname &key player-callback)
    (let ((container (make-instance (cond  ((string-equal "avi" (pathname-type pathname)) 'cl-video:avi-mjpeg-container)
  					 ((string-equal "gif" (pathname-type pathname)) 'cl-video:gif-container)
  					 (t (error 'unrecognized-file-format))) :filename pathname :player-callback player-callback)))
      (cl-video:decode container)))
  
  (defun main (path)
    (decode-file path :player-callback #'(lambda (video)
  						  (let ((a (cl-video:find-pcm-stream-record video)))
  						    (when a (change-class a 'hda-pcm-stream-record)))
  						  (cl-video:prime-all-streams video)
  						  (play-audio-stream video) (play-video-stream video))))
  
  
negative.code: (defmethod find-hda-pcm-stream-record ((container cl-video:av-container))
    (find-if #'(lambda (x) (and (eql (type-of x) 'hda-pcm-stream-record)
  			      (eql (cl-video:compression-code x) cl-video:+pcmi-uncompressed+))) (cl-video:stream-records container)))
  |#
  
  (defmethod play-audio-stream ((container cl-video:av-container))
    (let ((aout (cl-video:audio-out container))
  	(audio-rec (cl-video:audio-rec container)))
      (when audio-rec
        (mezzano.supervisor:make-thread
         #'(lambda ()
  	   (when (not (and (eql compression 1) ; uncompressed
  			   (eql channels 2)
  			   (eql sample-rate 44100)
  			   (member sample-size '(8 16))))
  	     (format t "Unsupported wav file. ~S ~S ~S ~S ~S~%" fmt compression channels sample-rate sample-size)
  	     (return-from play-audio-stream))
  	   (cl-video:stream-playback-start audio-rec)
  	   (unwind-protect
  		(loop until (cl-video:finish container)
  