Commit 92b673ec097e4a8887a73b5d2a48797b9fed7567

Thomas de Grivel 2015-06-24T18:00:45

Allow other keys in uri template expansion.

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/uri-template.lisp b/uri-template.lisp
index ede16a9..becaba2 100644
--- a/uri-template.lisp
+++ b/uri-template.lisp
@@ -320,7 +320,7 @@ URI-TEMPLATE."
   (format *debug-io* "~&; compiling ~S~%" template)
   (multiple-value-bind (code vars)
       (uri-template-expand-code template 'stream)
-    (compile nil `(lambda (stream &key ,@vars)
+    (compile nil `(lambda (stream &key ,@vars &allow-other-keys)
 		    (declare (type stream stream)
 			     (special ,@vars))
 		    ,@code))))