   (if-let [[method pathvec verb-fn-sym mw-spec] dispatch-table-entry]
     (t/track
       (format "Analyzing resource handler function `%s'." verb-fn-sym)
-      (let [handler-sym (gensym "handler_sym__")
+      (let [handler-key (gensym "handler-key__")
             routes' (assoc routes
-                      [method (keywords->symbols pathvec)] handler-sym)
+                      [method (keywords->symbols pathvec)] handler-key)
             [middleware' middleware-key] (if (contains? middleware mw-spec)
                                    [middleware (get middleware mw-spec)]
                                    (let [mw-sym (gensym "middleware-key__")]

                       :metadata       metadata}
                      context
                      (assoc :context (string/join "/" (cons "" context))))
            handlers' (assoc handlers handler-sym handler)]
        [routes' handlers' middleware']))))

(defn- analyse-dispatch-table

                           {:keys [middleware-key route-params
                                   verb-fn-sym arglist arg-resolvers
                                   metadata context]}
                           (get handlers handler-key)

                           arglist-resolver (create-arglist-resolver
                                          arg-symbol->resolver
