X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uri.lisp;h=dbcc1a9569019b653a391ef95b1886776a1a3c90;hb=ba01a7216c7a4c15c103525654fe10ea5845afb1;hp=751684d59decb232e612c840ee759d94706f25b2;hpb=5b681c40455d3619afb96a8335a94cd2a411e0c6;p=wol.git

diff --git a/uri.lisp b/uri.lisp
index 751684d..dbcc1a9 100644
--- a/uri.lisp
+++ b/uri.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  July 2003
 ;;;;
-;;;; $Id: uri.lisp,v 1.11 2003/08/15 14:04:57 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -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)))))