anchor.diff:  (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)))
  +					 ((string-equal "wav" (pathname-type pathname)) 'cl-video:wav-container)
  +					 (t (error 'unrecognized-file-format)))
  +				  :filename pathname :player-callback player-callback
  +				  :audio-out (make-instance 'mezzano-pcm-output)))
       (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)))
  +						    (when a (setf (cl-video:audio-rec (cl-video:audio-out video)) a)))
   						  (cl-video:prime-all-streams video)
   						  (play-audio-stream video) (play-video-stream video))))
   
  
positive.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 ((audio-rec (cl-video:find-pcm-stream-record container)))
      (when audio-rec
        (mezzano.supervisor:make-thread
         #'(lambda ()
  	   (cl-video:stream-playback-start audio-rec)
  	   (unwind-protect
  		(loop until (cl-video:finish container)
  
negative.code: 		     (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:close-sink aout)))
         :name "Trentino audio worker"))))
  
  (defun compute-window-size (container)
  