From 4b00f23dedf4bea5abb1ca89915a18f8c7112d2a Mon Sep 17 00:00:00 2001 From: Ivan Shvedunov Date: Sun, 2 Mar 2008 03:11:18 +0300 Subject: [PATCH] Namespace handling fix. --- xpath.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/xpath.lisp b/xpath.lisp index 1f5f36e..be40a52 100644 --- a/xpath.lisp +++ b/xpath.lisp @@ -116,8 +116,9 @@ (null) (element (map-extra-namespaces #'yield node) - (yield (%namespace-prefix node) - (%namespace-uri node)) + (when (plusp (length (%namespace-prefix node))) + (yield (%namespace-prefix node) + (%namespace-uri node))) (dolist (a (%attributes node)) (when (plusp (length (namespace-prefix a))) (yield (namespace-prefix a) (namespace-uri a)))) @@ -125,7 +126,7 @@ (iterate)) (document (yield "xml" "http://www.w3.org/XML/1998/namespace") - (yield "xmlns" "http://www.w3.org/2000/xmlns/") + #+nil (yield "xmlns" "http://www.w3.org/2000/xmlns/") (setf node nil) (iterate))))) (recurse)))) -- 2.11.4.GIT