anchor.diff:  			     (setf (cl-video:pause avi) (not (cl-video:pause 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)))))))))
  +			     (return-from play-video-stream))))
  +		 (cl-video:stream-playback-stop rec)))))))))
   
   (defun main (path)
  -  (decode-file pathname :player-callback #'(lambda (avi)
  -					     (play-audio-stream avi) (play-video-stream avi))))
  +  (cl-video:decode-file path :player-callback #'(lambda (avi)
  +						  (play-audio-stream avi) (play-video-stream avi))))
   
   (defun spawn (path)
     (setf path (merge-pathnames path))
  
positive.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))
  		    (frame (make-instance 'mezzano.gui.widgets:frame
  					  :framebuffer framebuffer
  					  :title (pathname-name path)
  					  :close-button-p t
  					  :damage-function (mezzano.gui.widgets:default-damage-function window)))
  		    (viewer (make-instance 'media-player
  
negative.code: 					       (mezzano.gui:surface-width buffer) (mezzano.gui:surface-height buffer)
  					       buffer 0 0
  					       framebuffer
  					       (+ left (- (truncate (- (cl-video:width avi) left right) 2)
  							  (truncate (mezzano.gui:surface-width buffer) 2)))
  					       (+ top (- (truncate (- (cl-video:height avi) top bottom) 2)
  							 (truncate (mezzano.gui:surface-height buffer) 2))))
  			   (mezzano.gui.widgets:draw-frame frame)
  			   (mezzano.gui.compositor:damage-window window
  								 0 0
  								 (cl-video:width avi) (cl-video:height avi)))
  			 (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)))
  