Commit 5a71654829a44c17429d61a3b3c8dbab38af5cef

Thomas de Grivel 2014-01-20T03:37:18

Expand values using STR by default.

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 5421c5f..c83709e 100644
--- a/uri-template.lisp
+++ b/uri-template.lisp
@@ -246,6 +246,9 @@ URI-TEMPLATE."
 (defmethod expand-value ((x string))
   (%-encode x nil (if *op* #'uri-char-p #'unreserved-char-p)))
 
+(defmethod expand-value ((x t))
+  (expand-value (the string (str x))))
+
 (defun expand-alist (alist separator assoc stream)
   (labels ((eat (l)
 	     (unless (endp l)