anchor.diff:      :default-form nil)
      (continue ((driver a))
       :default-form nil)
  -   (upgrade ((driver a))
  -    :default-form (close *request* :abort t))
  +   (upgrade ((driver a) data)
  +    :default-form (close *request*))
      (close ((driver a))
       :default-form nil))
     (:prefix on-request-))
   
   (defprotocol request (a)
  -  ((method ((request a)) :accessorp t)
  +  ((state ((request a)) :accessorp t)
  +   (method ((request a)) :accessorp t)
      (url ((request a)) :accessorp t)
      (headers ((request a)) :accessorp t)
      #+nil(trailers ((request a)))
      (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-))
   
  
positive.code:    (header-bytes ((reply a)) :accessorp t)
     (write-headers ((reply a)))
     (headers-written-p ((reply a)) :accessorp t)
     (keep-alive-p ((reply a)) :accessorp t)
     (chunked-p ((reply a)) :accessorp t)
     (http-server ((reply a)))
     (external-format ((request a)) :accessorp t)
     (socket ((reply a)))
     #+nil(trailers ((reply a)) :accessorp t))
    (:prefix reply-))
  
negative.code:     (write-headers reply))
    (when (reply-chunked-p reply)
      (write-sequence +0crlfcrlf+ (reply-socket reply)))
    (close (reply-request reply) :abort abort))
  
  ;;;
  ;;; Headers
  