anchor.diff:  					    display
   					    (xlib:keycode->keysym display code 0))
   				       (#\q
  -					(setf (finish avi) t)
  +					(setf (finish container) t)
   					(setf quit t))
   				       ((#\Space #\p)
  -					(setf (pause avi) (not (pause avi)))
  -					(bt:acquire-lock (pause-lock avi))
  -					(bt:release-lock (pause-lock avi))))
  +					(setf (pause container) (not (pause container)))
  +					(bt:acquire-lock (pause-lock container))
  +					(bt:release-lock (pause-lock container))))
   				     t))))
   	     (stream-playback-stop rec)
   	     (xlib:free-pixmap pixmap)
  
positive.code: 		       (xlib:put-image pixmap pixmap-gc image :width width :height height :x 0 :y 0)
  		       (xlib:copy-area pixmap gc 0 0 width height window 0 0)
  		       (xlib:display-force-output display)
  		       (unless (pause avi)
  			 (bt:acquire-lock (vacancy-lock (car (rcursor rec))))
  			 (bt:release-lock (vacancy-lock cur)))
  		       (when (eql cur (final rec))
  
negative.code: 
  (defun play (pathname)
    (decode-file pathname :player-callback
  	       #'(lambda (video)
  		   ;;has to use our specific decode for audio
  		   (let ((a (find-pcm-stream-record video)))
  		     (when a (change-class a 'portaudio-pcm-stream-record)))
  		   (prime-all-streams video)
  		   (play-audio-stream video) (play-video-stream video))))
  