From 48a97da7583eca60fbf9685860f09b2b5c8a7acf Mon Sep 17 00:00:00 2001 From: Jan Idzikowski Date: Fri, 21 May 2010 15:05:26 +0200 Subject: [PATCH] uri-to-pathname angepasst, decode in path (z.b. %20) --- xml/xml-parse.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index 70e5c62..cfbb441 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -3107,7 +3107,10 @@ #-cxml-system::uri-is-namestring (defun uri-to-pathname (uri) (let ((scheme (puri:uri-scheme uri)) - (path (puri:uri-parsed-path uri))) + (path (loop for e in (puri:uri-parsed-path uri) + collect (if (stringp e) + (puri::decode-escaped-encoding e t nil) + e)))) (unless (member scheme '(nil :file)) (error 'xml-parse-error :format-control "URI scheme ~S not supported" -- 2.11.4.GIT