From ccfdf49bbf6cba3759e18b18b5f365af41b1940a Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 4 Jan 2004 03:00:20 +0000
Subject: [PATCH] r8477: handle new names

---
 uri.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/uri.lisp b/uri.lisp
index ba476fe..dbcc1a9 100644
--- 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)))))
 
-- 
2.34.1