X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uri.lisp;h=dbcc1a9569019b653a391ef95b1886776a1a3c90;hb=ba01a7216c7a4c15c103525654fe10ea5845afb1;hp=ba476fed4850c5c79bb80b1b4bf50be744a0f4d7;hpb=115593575b49ab252692a959380e94707e385de3;p=wol.git 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)))))