anchor.diff:  (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
  +      (mezzano.supervisor: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))))
  
positive.code:                  mezzano.gui.font:*default-monospace-font*
                   mezzano.gui.font:*default-monospace-font-size*))
            (fifo (mezzano.supervisor:make-fifo 50)))
        (bt: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))
  
negative.code: (defpackage faux-bordeaux
    (:nicknames #:bt)
    (:import-from #:mezzano.supervisor #:make-thread)
    (:export #:make-thread #:make-lock #:acquire-lock #:release-lock))
  
  (defun faux-bordeaux:acquire-lock (mutex &optional (wait-p t))
    (mezzano.supervisor:acquire-mutex mutex wait-p))
  
  (defun faux-bordeaux:release-lock (mutex)
    (mezzano.supervisor:release-mutex mutex))
  
  (defun faux-bordeaux:make-lock (&optional name)
    (mezzano.supervisor:make-mutex name))
  
  (defpackage mezzano.gui.trentino
    (:use #:cl #:mezzano.gui.font #:cl-video)
  