 
 (defn create-request
   "Create the request map from the HttpServletRequest object."
-  [#^HttpServletRequest request]
+  [#^HttpServletRequest request, #^HttpServlet servlet]
   {:server-port        (.getServerPort request)
    :server-name        (.getServerName request)
    :remote-addr        (.getRemoteAddr request)

   :character-encoding (.getCharacterEncoding request)
   :body               (.getInputStream request)
   ;; Custom non-Ring field:
   :servlet-request    request})

;; Functions to set data in the response object


  [[servlet request response] routes]
  (do (.setCharacterEncoding response "UTF-8")
      (update-response response
        (routes (create-request request servlet)))))

(definline servlet
  "Create a servlet from a sequence of routes. Automatically updates if
