anchor.diff:      :port 80
       :listen-backlog 50
       :taskmaster (make-instance *default-taskmaster-class*)
  -    :output-chunking-p t
  -    :input-chunking-p t
       :persistent-connections-p t
       :read-timeout *default-connection-timeout*
       :write-timeout *default-connection-timeout*
  
positive.code:   "Start sending the reply."
    (let* ((return-code (return-code request))
           (acceptor (acceptor request))
           (chunkedp (and (output-chunking-p acceptor)
                          (eql (server-protocol request) :http/1.1)
                          ;; only turn chunking on if the content
                          ;; length is unknown at this point...
                          (null (or (content-length request) content-provided-p))))
  
negative.code:                       (setf transfer-encodings (split "\\s*,\\s*" transfer-encodings))
  
                        (when (member "chunked" transfer-encodings :test #'equalp)
                          ;; turn chunking on before we read the request body
                          (setf content-stream (make-chunked-stream content-stream))
                          (setf (chunked-stream-input-chunking-p content-stream) t)))
  
                      (multiple-value-bind (remote-addr remote-port)
                          (get-peer-address-and-port socket)
  