Function: ^url-dispatcher

Source

(defun ^url-dispatcher (url-prefix urlmap)
  (if *wisp-debug*
      (fn (*request* *entity*)
	;; recreate the dispatcher so I don't have to re-attach the
	;; urlmap everytime I modify %url-dispatcher fo easier debugging.
	(funcall (curry #'%url-dispatcher url-prefix urlmap *request* *entity*)))
      (fn (*request* *entity*)
	(%url-dispatcher url-prefix urlmap *request* *entity*))))