Commit ccce3307b61b1a66bcfa7bb5979d5aa011125f26

Thomas de Grivel 2015-06-27T19:43:24

Allow clearing uri-templates-cache.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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*)