anchor.diff:  
   (defmethod initialize-instance :after ((s avi-mjpeg-stream) &key &allow-other-keys)
     (setf (chunk-decoder s) #'(lambda (stream id size)
  -			      (print id)
  +			      (format t "~A size ~D~%" id size)
   			      (if (member (subseq id 2) '("dc" "wb") :test #'string-equal)
   				  (progn (decode-media-stream (elt (stream-records s) (parse-integer (subseq id 0 2))) size stream)
   					 (when (plusp (padding s)) (loop repeat (rem size (padding s)) do (read-byte s))))
  
positive.code:   ((chunk-decoder :accessor chunk-decoder)
     (width :accessor width :initarg :width :initform 640)
     (height :accessor height :initarg :height :initform 480)
     (padding :accessor padding :initform 1)
     (flags :accessor flags)
     (nstreams :accessor nstreams)
     (player-callback :accessor player-callback :initform nil) ;;called once all headers are processed
  
negative.code:     (jpeg::read-dht (jpeg-descriptor rec) is))
    (setf (chunk-queue rec) (make-list (* 2 (floor (rate rec) (scale rec)))))
    (loop for chunk on (chunk-queue rec) do
         (setf (car chunk) (make-instance 'chunk :frame (jpeg:allocate-buffer (height (avi rec)) (width (avi rec)) 3))))
    (setf (cdr (last (chunk-queue rec))) (chunk-queue rec)
  	(rcursor rec) (chunk-queue rec)
  	(wcursor rec) (cdr (chunk-queue rec))))
  