anchor.diff:  
   (defun add-route-to-routes (routes path route)
     (let ((*routes* routes))
  -    (add-route path route)))
  +    (http-routes.routes:add-route path route)))
   
  -(defun add-route% (route-table path &key handler methods defaults validators)
  +(defun add-route% (path handler methods defaults validators)
     (unless methods
       (setf methods '(:get)))
     (let ((route (make-instance 'route
  
positive.code: (defmacro section (sub-path &body routes)
    `(let ((*route-section* (if *route-section*
                                (concatenate 'string *route-section* ,sub-path)
                                ,sub-path)))
       ,@routes))
  
  (defun attach-all-routes (system)
    (let ((deps (get-all-deps system)))
      (loop for dep in (reverse deps) do
               (attach-system-routes dep))))
  
  (defun reload-all-routes (system-name)
    (setf *route-table* (make-instance 'route-table))
    (attach-routes-packet system-name))
  
  ;; example
  #|
  
negative.code: (in-package :http-routes)
  
  (defvar *route-table*)
  
  (defvar *route-section* "")
  
  (defclass route-table ()
    ((get :initform (http-routes.matcher::make-node))
  