anchor.diff:  			   ;; Exit when the close button is clicked.
   			   (mezzano.gui.widgets:close-button-clicked ()
   			     (setf (cl-video:pause avi) (not (cl-video:pause avi)))
  -			     (bt:acquire-lock (cl-video:pause-lock avi))
  -			     (bt:release-lock (cl-video:pause-lock avi))
  +			     (mezzano.supervisor:acquire-mutex (cl-video:pause-lock avi))
  +			     (mezzano.supervisor:release-mutex (cl-video:pause-lock avi))
   			     (return-from main))))
   		 (stream-playback-stop rec)))))))))
   
  
positive.code: 								 0 0
  								 width height))
  			 (unless (cl-video:pause avi)
  			   (bt:acquire-lock (cl-video:vacancy-lock (car (cl-video:rcursor rec))))
  			   (bt:release-lock (cl-video:vacancy-lock cur)))
  			 (when (eql cur (cl-video:final rec))
  			   (return))
  			 (sleep (/ (cl-video:scale rec) (cl-video:rate rec)))
  
negative.code:                  mezzano.gui.font:*default-monospace-font*
                   mezzano.gui.font:*default-monospace-font-size*))
            (fifo (mezzano.supervisor:make-fifo 50)))
        (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))
  