anchor.diff:  		 (extra-bytes rec) (make-array (extra-format-bytes rec) :element-type (stream-element-type is)))
   	   (read-sequence (extra-bytes rec) is)))
          (setf (buffer rec) (make-array (suggested-buffer-size rec) :element-type '(unsigned-byte 8)))
  -       (initialize-ring rec 16 (suggested-buffer-size rec) '(unsigned-byte 8))
  +       (initialize-ring rec 16 (suggested-buffer-size rec) (sink-frame-element-type (audio-out (container rec))))
          (return)))
   
   (defclass avi-mjpeg-container (av-container)
  
positive.code: 	 (cur-lock (vacancy-lock chunk))
  	 (new-chunk (car (wcursor rec))))
      (bt:acquire-lock (vacancy-lock new-chunk))
      (read-sequence (frame chunk) input-stream :end fsize)
      (bt:release-lock cur-lock)))
  
  (defmethod decode-media-stream ((rec mjpeg-stream-record) fsize input-stream)
  
negative.code: ;;;; Video decoder implementation
  ;;;; Supports MJPEG in AVI container
  ;;;; (c) 2017 Eugene Zaikonnikov <eugene@fucall.org>
  
  (in-package :cl-video)
  
  (define-constant +avif-must-use-index+ #x20) 
  