anchor.diff:                   mezzano.gui.font:*default-monospace-font*
                    mezzano.gui.font:*default-monospace-font-size*))
             (fifo (mezzano.supervisor:make-fifo 50)))
  -      (bt:make-trhread
  +      (mezzano.supervisor:make-trhread
          #'(lambda (avi)
   	   (mezzano.gui.compositor:with-window (window fifo (cl-video:width avi) (cl-video:height avi))
   	     (let* ((framebuffer (mezzano.gui.compositor:window-buffer window))
  
positive.code: (defmethod play-audio-stream ((avi cl-video:avi-mjpeg-stream))
    (let ((audio-rec (cl-video:find-pcm-stream-record avi)))
      (when audio-rec
        (bt:make-thread
         #'(lambda ()
  	   (cl-video:stream-playback-start audio-rec)
  	   (sleep (* (cl-video:start audio-rec) (/ (cl-video:scale audio-rec) (cl-video:rate audio-rec))))
  
negative.code: 								 0 0
  								 width height))
  			 (unless (cl-video:pause avi)
  			   (mezzano.supervisor:acquire-mutex (cl-video:vacancy-lock (car (cl-video:rcursor rec))))
  			   (mezzano.supervisor:release-mutex (cl-video:vacancy-lock cur)))
  			 (when (eql cur (cl-video:final rec))
  			   (return))
  			 (sleep (/ (cl-video:scale rec) (cl-video:rate rec)))
  