anchor.diff:                     :method ,method
                      :content-type ,content-type
                      :parse-vars ,parse-vars
  -                   :requirement ,requirement))
  +                   :requirement ,requirement
  +                   :render-method ,render-method))
          (intern (symbol-name ',name)
                  (symbol-value (find-symbol +routes-symbol+)))
          (export ',name)
  
positive.code:   ((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)))
  
  (defmethod routes:route-check-conditions ((route base-route) bindings)
    (with-context (slot-value (slot-value route 'submodule)
  
negative.code:                                         (routes:parse-template (get symbol :template)
                                                                 (get symbol :parse-vars)))
                   :symbol symbol
                   :content-type (or (get symbol :content-type)
                                     (string-symbol-value +content-type-symbol+))
                   :required-method (get symbol :method)
                   :arbitrary-requirement (get symbol :requirement)
                   :render-method (or (get symbol :render-method)
                                      (string-symbol-value +render-method-symbol+)
                                      #'identity)
                   :submodule submodule))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  