anchor.diff:                                         :path (namestring (merge-pathnames ,path ,(symbol-value (find-symbol "*BASEPATH*" *package*))))
                                          :overlay-master ,overlay-master
                                          :content-type ,content-type
  -                                       :user-login (find-symbol "COMPUTE-USER-LOGIN-NAME")
  +                                       :user-login (find-symbol "COMPUTE-USER-LOGIN-NAME" ,*package*)
                                          :required-login-status ',login-status
                                          :required-method ,method)))
        (intern (symbol-name ',name) (routes/package))
  
positive.code:                                        :xslt-elements (find-symbol "*XSLT-ELEMENTS*" ,*package*)
                                         :overlay-master ,overlay-master
                                         :content-type ,content-type
                                         :user-login (find-symbol "COMPUTE-USER-LOGIN-NAME")
                                         :required-login-status ,login-status
                                         :required-method ,method)))
       (intern (symbol-name ',name) (routes/package))
  
negative.code:                                          :symbol ',name
                                           :overlay-master ,overlay-master
                                           :content-type ,content-type
                                           :user-login (find-symbol "COMPUTE-USER-LOGIN-NAME" ,*package*)
                                           :required-login-status ,login-status
                                           :required-method ,method)))
         (setf (get ',name :protocol)
  