gistfile1.clj

(def route-list (atom {}))

(defmacro with-name
  [name route]
  (swap! route-list assoc name (nth route 1))
  route)

;; Needs to get fancier to handle generating routes with parameters 
(defn url-for
  [route-name]
  (route-name @route-list))

;; Now we can...
(defroutes webauth-public
  (with-name :login (GET "/login" (controller/login)))
  (with-name :forgot (GET "/forgot-password" (controller/forgot-password)))
  (with-name :signup (GET "/signup" (controller/signup)))
  (with-name :activate (GET "/activate/:token" (controller/activate params))))

What's your mileage on this so far? Any reason I should look elsewhere for named routes?