anchor.diff:        (send response data)
         (begin response))
   
  +  (when (string-equal (header response "Transfer-Encoding") "chunked")
  +    (send (sock (peer (request response)))
  +          (babel:string-to-octets
  +           (format nil "0~A~A~A~A" #\Return #\Newline #\Return #\Newline))))
  +
     (if (or (string-equal (header response "Connection") "close")
             (string-equal (version (request response)) "HTTP/1.0"))
  +
         (add-listener (sock (peer (request response))) "drain"
                       (lambda (sock)
                         (close sock)))
  
positive.code:     (begin response)
  
      (if (string-equal (header response "Transfer-Encoding") "chunked")
          (format t "TODO: Chunked encoding is not yet supported")
          (send (sock (peer (request response)))
                bindata))))
  
  
negative.code: 
     (status-code :initform 200 :accessor status-code)
     (status-reason :initform "OK" :accessor status-reason)
     (headers :initform (list (cons "Transfer-Encoding" "chunked")) :accessor headers)
  
     (status-sent :initform nil :accessor status-sent :accessor status-sent-p)
     (headers-sent :initform nil :accessor headers-sent-p :accessor headers-sent)
  