Allow clearing uri-templates-cache.
diff --git a/uri-template.lisp b/uri-template.lisp
index 1e8fa12..e09c0ce 100644
--- a/uri-template.lisp
+++ b/uri-template.lisp
@@ -155,6 +155,9 @@ URI-TEMPLATE."
(defvar *uri-templates* (make-hash-table :test 'equal :weakness :value))
+(defun clear-uri-templates-cache ()
+ (setq *uri-templates* (make-hash-table :test 'equal :weakness :value)))
+
(defun uri-template (thing)
(typecase thing
(string (or (gethash thing *uri-templates*)