anchor.diff:      (multiple-value-bind (route bindings) (routes:match mapper url)
         (if route
             (alexandria:alist-plist bindings)))))
  -  +  
  
positive.code:                                        content-type
                                         render-method
                                         requirement
                                         parse-vars)
                          &body body)
    (let* ((variables (iter (for var in (routes:template-variables (routes:parse-template template)))
                            (collect (list (intern (symbol-name var))
  
negative.code:                                       (get symbol :parse-vars))))
  
  (defun create-route-from-symbol (symbol submodule)
    (let* ((headers (get symbol :headers))
  	 (content-type (get symbol :content-type)))
      (cond
        (content-type 
         (setf (getf headers :content-type) content-type))
        ((not (getf headers :content-type))
         (setf (getf headers :content-type)
  	     (or (string-symbol-value +content-type-symbol+
  				      (symbol-package symbol))
  		 "text/html"))))
  	 (make-instance 'route
  		   :template (route-template-from-symbol symbol submodule)
  		   :symbol symbol
  		   :required-method (get symbol :method)
  		   :arbitrary-requirement (get symbol :requirement)
  		   :render-method (get symbol :render-method)
  		   :submodule submodule
  		   :headers (alexandria:plist-alist headers))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; generate url by route
  