[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv8177/xml

Modified Files:
	xml-parse.lisp 
Log Message:
ohne prefix haben wir beim namespace-processing aber trotzdem einen lname

Date: Sun Dec  4 23:18:39 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.51 cxml/xml/xml-parse.lisp:1.52
--- cxml/xml/xml-parse.lisp:1.51	Sun Dec  4 22:15:38 2005
+++ cxml/xml/xml-parse.lisp	Sun Dec  4 23:18:37 2005
@@ -3351,7 +3351,7 @@
     (let ((uri (find-namespace-binding prefix)))
       (if uri
 	  (values uri prefix local-name)
-	  (values nil nil nil)))))
+	  (values nil nil qname)))))
 
 
 (defun find-namespace-binding (prefix)