anchor.diff:  (in-package #:cl-video)
   
   (setf *print-circle* t)
  +
  +(eval-when (:compile-toplevel)
  +  (defconstant +default-fps+ 25))
   
   (defclass chunk ()
     ((frame :accessor frame :initarg :frame)))
  
positive.code:    (recommended-buffer-size :accessor recommended-buffer-size :initarg :recommended-buffer-size :initform 16384)
     (chunk-queue :accessor chunk-queue :initform (make-list 50))
     (rcursor :accessor rcursor)
     (wcursor :accessor wcursor)))
  
  (defmethod initialize-instance :after ((s avi-mjpeg-stream) &key)
    (loop for chunk on (chunk-queue s) do
  
negative.code: 	(rcursor s) (chunk-queue s)
  	(wcursor s) (cdr (chunk-queue s))))
  
  (defgeneric handle-chunk ())
  
  (defgeneric decode (stream)
    (:documentation "Decodes the video stream"))
  
  