anchor.diff:      (set-header headers :server (format nil "Wookie (~a)" *wookie-version*)))
     headers)
   
  +(defun get-log-uri (uri)
  +  "Given a quri object, return a string of the printable version for logging."
  +  (let* ((str (quri:uri-path uri))
  +         (params (quri:uri-query-params uri))
  +         (enable-qs nil)
  +         (str (if (and enable-qs params)
  +                  (concatenate 'string
  +                               str
  +                               "?"
  +                               (reduce (lambda (acc x)
  +                                         (concatenate 'string
  +                                                      acc
  +                                                      (when (< 0 (length acc))
  +                                                        "&")
  +                                                      x))
  +                                       (mapcar (lambda (x) (concatenate 'string (car x) "=" (cdr x)))
  +                                               params)
  +                                       :initial-value ""))
  +                  str)))
  +    str))
  +
   (defun send-response (response &key (status 200) headers body (close nil close-specified-p))
     "Send a response to an incoming request. Takes :status, :headers, and :body
      keyword arguments, which together form an entire response.
  
positive.code:    sent fully. However, send-response does its best to read the request headers
     and determine whether or not the connection should be closed. Unless you have
     a reason to specify :close, it may be best to leave it blank."
    (vom:debug "(response) ~a ~a (status ~a) (close ~a) (headers ~s) (body-length ~a)"
               (response-request response) response status close
               headers (length body))
    ;; make sure we haven't already responded to this request
    (when (response-finished-p response)
      (error (make-instance 'response-already-sent :response response)))
  
negative.code:   "Start a response to the client, but do not specify body content (or close the
     connection). Return a chunked (chunga) stream that can be used to send the
     body content bit by bit until finished by calling finish-response."
    (vom:debug "(response) chunked ~a ~a" response (response-request response))
    ;; we need to add in our own transfer header, so remove all others
    (dolist (head-list (list headers (response-headers response)))
      (remf head-list :content-length)
  