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

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)