anchor.diff:    (setf (gethash socket (http-server-connections driver))
           (let ((req (make-instance 'request
                                     :socket socket
  +                                  :http-server driver
                                     :external-format (http-server-external-format-in driver))))
             (cons req
                   (make-instance 'reply
  
positive.code:    (http-version ((request a)) :accessorp t)
     (external-format ((request a)) :accessorp t)
     (request-parser ((request a)))
     (keep-alive-p ((reply a)) :accessorp t)
     (socket ((request a))))
    (:prefix request-))
  
negative.code:         (:body
           (on-request-data user-driver (if-let (format (request-external-format req))
                                           (babel:octets-to-string data :encoding format)
                                           data)))))))
  
  (defparameter +100-continue+ #.(babel:string-to-octets (format nil "HTTP/1.1 100 Continue~a~a" +crlf-ascii+ +crlf-ascii+)))
  (defun parse-headers (server driver data)
  