anchor.diff:     (extra-format-bytes :accessor extra-format-bytes)
      (extra-bytes :accessor extra-bytes)))
   
  -(defmethod shared-initialize :after ((rec audio-stream-record) slots &key &allow-other-keys)
  +#+nil(defmethod shared-initialize :after ((rec audio-stream-record) slots &key &allow-other-keys)
     (declare (ignorable slots))
     (setf  (buffer rec) (make-array (suggested-buffer-size rec) :element-type '(unsigned-byte 8))))
  +
  +(defmethod frame-size ((rec audio-stream-record))
  +  (suggested-buffer-size rec))
   
   (defmethod read-audio-stream-header ((rec audio-stream-record) stream)
     (loop for chunk = (riff:read-riff-chunk stream)
  
positive.code: 		 (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))
         (return)))
  
  (defclass avi-mjpeg-container (av-container)
  
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) 
  