anchor.diff:                   (do-run-hooks (sock) (run-hooks :post-route request response)
                      nil)))
                (header-callback (headers)
  -               ;; if we got the headers, it means we can find the route we're
  -               ;; destined to use. if the route accepts chunks and the body is
  -               ;; chunked, run the router now so it can set up chunk listening.
  -               ;; otherwise, save the route for later and let the rest of the
  -               ;; request come in.
  +               "Called when our HTTP parser graciously passes us a block of
  +                parsed headers. Allows us to find which route we're going to
  +                dispatch to, and if needed, set up chunking *before* the body
  +                starts flowing in. Responsible for the :parsed-headers hook."
                  (future-handler-case
                    (let* ((method (http-parse:http-method http))
                           (resource (http-parse:http-resource http))
  
positive.code:                    (setf error-occurred-p t)
                     (main-event-handler e sock))))
               (body-callback (chunk finishedp)
                 (when error-occurred-p
                   (return-from body-callback))
                 ;; forward the chunk to the callback provided in the chunk-enabled
  
negative.code:     (setup-parser sock)))
  
  (defun read-data (sock data)
    "A simple read-cb handler that passes data to the HTTP parser attached to the
     socket the data is coming in on. The parser runs all necessary callbacks
     directly, so this function just blindly feeds the data in."
    (log:debu1 "(read) ~a: ~a bytes" sock (length data))
  