Commit e982b8dd authored by david's avatar david

Revision: cxml--devel--1.0--patch-12

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Jan  9 23:23:09 CET 2004
Standard-date: 2004-01-09 22:23:09 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-12
Summary: REVERT patch-10
Keywords:

Oops, make dom:get-elements-by-tag-name case sensitive again.  I should have
read DOM 1.1.7 earlier... :(
parent f6b3abf7
......@@ -144,12 +144,9 @@
(let ((result nil))
(setf tag-name (rod tag-name))
(let ((wild-p (rod= tag-name '#.(string-rod "*"))))
(labels ((tag-name-eq (a b)
;; XXX ist das richtig? TAG-NAME-EQ war undefiniert
(rod-equal a b))
(walk (n)
(labels ((walk (n)
(when (and (dom:element-p n)
(or wild-p (tag-name-eq tag-name (dom:node-name n))))
(or wild-p (rod= tag-name (dom:node-name n))))
(push n result))
(mapc #'walk (dom:child-nodes n))))
(walk document)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment