anchor.diff:                     :content-type ,content-type
                      :parse-vars ,parse-vars
                      :requirement ,requirement
  -                   :render-method ,render-method))
  +                   :render-method ,render-method
  +		   :headers ,headers))
          (intern (symbol-name ',name)
                  (symbol-value (find-symbol +routes-symbol+)))
          (export ',name)
  
positive.code: (defclass route (routes:route)
    ((symbol :initarg :symbol :reader route-symbol)
     (submodule :initarg :submodule :initform nil)
     (content-type :initarg :content-type :initform nil :reader route-content-type)
     (required-method :initarg :required-method :initform nil :reader route-required-method)
     (arbitrary-requirement :initarg :arbitrary-requirement :initform nil :reader route-arbitrary-requirement)
     (render-method :initarg :render-method :initform #'identity)))
  
  (defun route-render-method (route)
    (or (slot-value route 'render-method)
  
negative.code:   (string-downcase (write-to-string (slot-value route 'symbol))))
  
  (defmethod process-route ((route route) bindings)
    (iter (for (name . value) in (route-headers route))
  	(setf (hunchentoot:header-out name) value))
    (with-context (slot-value (slot-value route 'submodule) 'context)
      (let ((*route* route)
            (*bindings* bindings)
  