uri-to-pathname angepasst, decode in path (z.b. %20)

2010-05-21 15:05:26 +02:00
parent f2fccbbba3
commit 48a97da758
1 changed files with 4 additions and 1 deletions
--- 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"