anchor.diff:           (reconnect-all-routes)))))
   
   (defun create-route-from-symbol (symbol submodule)
  -  (make-instance 'simple-route
  +  (make-instance 'route
                    :template (concatenate 'list
                                           (submodule-full-baseurl submodule)
                                           (routes:parse-template (get symbol :template)
  
positive.code:                            (slot-value (slot-value route
                                                     'submodule)
                                         'module))
        #'identity))  
  
  (defmethod routes:route-check-conditions ((route base-route) bindings)
    (with-context (slot-value (slot-value route 'submodule)
                              'context)
      (with-slots (required-method arbitrary-requirement) route
  
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)
  