Commit 57c1d3141059f1b34729516ba1e7ced6d7a2f311

Thomas de Grivel 2017-06-21T11:27:42

url-encode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
diff --git a/gravatar.lisp b/gravatar.lisp
index 926212a..ce238ee 100644
--- a/gravatar.lisp
+++ b/gravatar.lisp
@@ -25,7 +25,8 @@
 	    +base-uri+
 	    (hash email)
 	    (drakma::alist-to-url-encoded-string parameters
-						 :utf-8))))
+						 :utf-8
+						 #'drakma:url-encode))))
 
 (defun generate-profile-url (email type parameters)
   (format nil "~Ag2-~A.~A~@[?~A~]"