anchor.diff:                (if new-code new-code code)))
         response)))
   
  +(defun com-funcall (x y)
  +  (funcall y x))
  +
   (defun process-request (request)
     "Generate a response accepting a REQUEST"
     (let ((response
  
positive.code:             (response-update-needed response) nil))
      response))
  
  (defun set-uri-handler (uri handler)
    "Set URI handler possibly deleting the old one"
    (let* ((entry (assoc uri *dispatch-table* :test #'string=))
           (dispatch-table (remove entry *dispatch-table*)))
      (setq *dispatch-table* (cons (cons uri handler) dispatch-table))))
  
  (defmacro define-page-from-stream-handler ((uri stream) param-list &body body)
    "Create and set dynamic page handler. URI is an URI in the dispatch table.
  
negative.code:            ((or
               (string= *method-get* (request-method request))
               (string= *method-post* (request-method request))) ;We can understand only this now
              (let ((generator (find (request-uri request) *dispatch-table*
                                      :test #'com-funcall :key #'car)))
                (setq generator (if generator (cdr generator)
                                    (get-status-code-page-generator *http-not-found*)))
                (funcall generator request)))
  