anchor.diff:          (chunked nil)
           (forced-chunk-bytes 0)
           (multipart-parser nil)  ; we'll init this after we get headers
  -        (search-body-start (make-array 4 :element-type '(unsigned-byte 8) :initial-contents #(13 10 13 10)))
  +        (search-body-start (the simple-byte-vector #.(make-array 4 :element-type '(unsigned-byte 8) :initial-contents '(13 10 13 10))))
           (100-continue-search #.(babel:string-to-octets "100 Continue")))
       (lambda (data)
         (block parse-wrap
  
positive.code:       (when (and header-start
                   (< header-start header-break))
          (if get-previous-line
              (let ((previous-line-pos (or (search #(13 10) bytes :end2 (- header-start 2) :from-end t) 0)))
                (subseq bytes (find-non-whitespace-pos bytes :start previous-line-pos)
                        header-break))
              (subseq bytes header-start header-break))))))
  
negative.code:         (chunk-start 0)
          (data-length (length data))
          (chunk-data (make-array 0 :element-type '(unsigned-byte 8)))
          (search-line-end  (the simple-byte-vector #.(make-array 2 :element-type '(unsigned-byte 8) :initial-contents '(13 10)))))
      ;; loop over all available chunks until we get a partial
      (loop while (not (= last-chunk-start chunk-start)) do
        (setf last-chunk-start chunk-start)
  