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: (in-package :restas)
  
  (defgeneric process-route (route bindings))
  
  (defclass route (routes:route)
    ((symbol :initarg :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)
  