From a1a95a4d03701050f71044fd9305d50cd6480c98 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sat, 7 Jun 2008 18:19:56 +0200
Subject: [PATCH] Workaround for :up pathnames, thanks to Pierre Mai

---
 xml/xml-parse.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp
index eb8e338..0737466 100644
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@@ -3030,7 +3030,11 @@
 #-cxml-system::uri-is-namestring
 (defun pathname-to-uri (pathname)
   (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
                   (if (specific-or (pathname-type pathname))
                       (concatenate 'string
-- 
2.11.4.GIT