anchor.diff:  
   (defun genurl (route-symbol &rest args)
     (puri:render-uri (genurl/impl (concatenate 'list
  -                                             (submodule-full-baseurl *submodule*)
  +                                             (if *submodule*
  +                                                 (submodule-full-baseurl *submodule*)
  +                                                 "")
                                                (route-symbol-template route-symbol))
                                   args)
                      nil))
  
positive.code:              t)
           (if arbitrary-requirement
               (let ((*bindings* bindings))
                 (funcall arbitrary-requirement))
               t))))
  
  (defmethod routes:route-name ((route route))
  
negative.code: 
  (defun gen-full-url (route &rest args)
    (let ((uri (genurl/impl (concatenate 'list
                                         (if *submodule* (submodule-full-baseurl *submodule*) "")
                                         (route-symbol-template route))
                            args)))
      (setf (puri:uri-scheme uri)
  