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

Workaround for :up pathnames, thanks to Pierre Mai

Browse Source
This commit is contained in:
David Lichteblau
2008-06-07 18:19:56 +02:00
committed by David Lichteblau
parent 47a4a225b3
commit a1a95a4d03
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xml/xml-parse.lisp
View File

@ -3030,7 +3030,11 @@
#-cxml-system::uri-is-namestring #-cxml-system::uri-is-namestring
(defun pathname-to-uri (pathname) (defun pathname-to-uri (pathname)
(let ((path (let ((path
(append (pathname-directory pathname) ;; FIXME: should we really leave ".." in base URIs?
(append (mapcar (lambda (x)
(cond ((member x '(:up :back)) "..")
(t x)))
(pathname-directory pathname))
(list (list
(if (specific-or (pathname-type pathname)) (if (specific-or (pathname-type pathname))
(concatenate 'string (concatenate 'string