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