anchor.diff:                    (car header) (cdr header)
                     newline))
            response-list))
  -      (apply #'concatenate 'vector
  -             (string-to-octets-latin-1
  -              (format nil "~a ~3,'0d ~a~a"
  -                      (response-version response)
  -                      (car (response-code response))
  -                      (cdr (response-code response))
  -                      newline))
  -             response-list))))
  +      (setf (response-cache response)
  +            (apply #'concatenate 'vector
  +                   (string-to-octets-latin-1
  +                    (format nil "~a ~3,'0d ~a~a"
  +                            (response-version response)
  +                            (car (response-code response))
  +                            (cdr (response-code response))
  +                            newline))
  +                   response-list)))))
   
   ;; Some response generators
   
  
positive.code:   code
    headers
    data
    (update-needed t))
  
  (defun compose-response (response)
    "Translate response to simple-vector"
    (declare (optimize (speed 3)))
    (let ((newline (coerce #(#\Return #\LineFeed) 'string))
          (newline-code #(13 10)))
      (declare (dynamic-extent newline newline-code))
  
negative.code:              (get-status-code-page-generator *http-not-implemented*)))
            request)))
  
      (when (not (response-cache response))
        (if (response-data response)
            (push (cons "Content-Length" (length (response-data response)))
                  (response-headers response)))
        (push '("Connection" . "close") (response-headers response))
        (setf (response-version response) (request-version request)))
      response))
  
  (defun set-uri-handler (uri handler &key (remove-old t))
  