anchor.diff:                             (slot-value (slot-value route
                                                      'submodule)
                                          'module))
  -      #'identity))  
  +      #'identity))
   
  -(defmethod routes:route-check-conditions ((route base-route) bindings)
  +(defmethod routes:route-check-conditions ((route route) bindings)
     (with-context (slot-value (slot-value route 'submodule)
                               'context)
       (with-slots (required-method arbitrary-requirement) route
  
positive.code:          (reconnect-all-routes)))))
  
  (defun create-route-from-symbol (symbol submodule)
    (make-instance 'simple-route
                   :template (concatenate 'list
                                          (submodule-full-baseurl submodule)
                                          (routes:parse-template (get symbol :template)
  
negative.code:                  (funcall arbitrary-requirement))
                 t)))))
  
  (defmethod process-route ((route route) bindings)
    (setf (hunchentoot:content-type*)
          (route-content-type route))
    (with-context (slot-value (slot-value route 'submodule) 'context)
      (let ((*route* route)
            (*bindings* bindings)
            (*submodule* (slot-value route 'submodule)))
      (render-object (route-render-method route)
                     (funcall (slot-value route 'symbol))))))
  
  (defmacro define-route (name (template &key
                                         (method :get)
  