r8477: handle new names

diff --git a/uri.lisp b/uri.lisp
index ba476fed4850c5c79bb80b1b4bf50be744a0f4d7..dbcc1a9569019b653a391ef95b1886776a1a3c90 100644 (file)
--- a/uri.lisp
+++ b/uri.lisp
@@ -158,12 +158,12 @@
   (let ((str (plist-to-compressed-string plist)))
     (if base64
        (string-to-base64-string str :uri t)
-       (uriencode-string str))))
+       (encode-uri-string str))))
 
 (defun url-string-to-plist (str &key (base64 t))
   (let ((decode (if base64
                    (base64-string-to-string str :uri t)
-                   (uridecode-string str))))
+                   (decode-uri-string str))))
     (when decode
       (ignore-errors (compressed-string-to-plist decode)))))