Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv5212/dom
Modified Files: dom-impl.lisp Log Message: 639/808 getElementById01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)> - when called with arguments - (NIL).
Date: Sun Dec 11 19:43:46 2005 Author: dlichteblau
Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.21 cxml/dom/dom-impl.lisp:1.22 --- cxml/dom/dom-impl.lisp:1.21 Sun Dec 11 19:17:31 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 11 19:43:45 2005 @@ -425,9 +425,9 @@ (get-elements-by-tag-name-internal-ns document uri lname))
(defmethod dom:get-element-by-id ((document document) id) - (block nil + (block t (unless (dtd document) - (return nil)) + (return-from t nil)) (setf id (%rod id)) (labels ((walk (n) (dovector (c (dom:child-nodes n)) @@ -441,7 +441,7 @@ (let* ((name (rod (cxml::attdef-name a))) (value (dom:get-attribute c name))) (when (and value (rod= value id)) - (return c))))))) + (return-from t c))))))) (walk c))))) (walk document))))