anchor.diff:                         (zerop (search boundary data)))
                 (setf data (subseq data (+ 2 boundary-length))))
   
  +            ;; reset the "just finished!" var
               (setf just-finished-chunk nil)
   
  -            ;; act differently depending on whether we're parsing a new part or an
  -            ;; existing
  +            ;; act differently depending on whether we're parsing a new field or
  +            ;; an existing
               (if current-field-headers
                   ;; we are inside of an existing chunk.
                   (let* ((body-end (- (or (search boundary data) 2) 2))
  
positive.code:                      "multipart/form-data;")
        (return-from make-multipart-parser nil))
      (lambda (chunk-data)
        (setf data (append-array data chunk-data))
        (block leave-parser
          (flet ((send-data-to-callback (body-start body-end body-complete-p)
                   (let ((send-data (subseq data body-start (if body-complete-p body-end nil))))
                     (funcall callback
  
negative.code:                             current-field-kv kv
                              current-field-name field-name)
                        (send-data-to-callback body-start body-end body-complete-p)))))
              ;; if the data hasn't changed in the last loop, it means that
              ;; nothing was parsed and we need more data (ie, return)
              (when (= (length data) data-length)
                (return-from leave-parser))))))))
  
  