OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jan Idzikowski
2010-05-21 15:05:26 +02:00
committed by David Lichteblau
parent f2fccbbba3
commit 48a97da758
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
xml/xml-parse.lisp
View File

@ -3107,7 +3107,10 @@
#-cxml-system::uri-is-namestring #-cxml-system::uri-is-namestring
(defun uri-to-pathname (uri) (defun uri-to-pathname (uri)
(let ((scheme (puri:uri-scheme 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)) (unless (member scheme '(nil :file))
(error 'xml-parse-error (error 'xml-parse-error
:format-control "URI scheme ~S not supported" :format-control "URI scheme ~S not supported"