OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

639/808 getElementById01.xml

Browse Source 
-TEST FAILED: There is no applicable method for the generic function
-               #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)>
-             when called with arguments
-               (NIL).
This commit is contained in:
dlichteblau
2005-12-11 18:43:45 +00:00
parent 80558a9122
commit f90b5b37d9
2 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
DOMTEST
View File

@ -670,10 +670,6 @@ implementationAttribute expandEntityReferences not supported, skipping test
637/808 getAttributeNodeNS01.xml 637/808 getAttributeNodeNS01.xml
638/808 getAttributeNodeNS02.xml 638/808 getAttributeNodeNS02.xml
639/808 getElementById01.xml 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).
640/808 getElementById02.xml 640/808 getElementById02.xml
641/808 getElementsByTagNameNS01.xml 641/808 getElementsByTagNameNS01.xml
642/808 getElementsByTagNameNS02.xml 642/808 getElementsByTagNameNS02.xml
@ -869,4 +865,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
803/808 setNamedItemNS04.xml 803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml 804/808 setNamedItemNS05.xml
805/808 systemId01.xml 805/808 systemId01.xml
12/763 tests failed; 45 tests were skipped 11/763 tests failed; 45 tests were skipped

6
dom/dom-impl.lisp
View File

@ -425,9 +425,9 @@
(get-elements-by-tag-name-internal-ns document uri lname)) (get-elements-by-tag-name-internal-ns document uri lname))
(defmethod dom:get-element-by-id ((document document) id) (defmethod dom:get-element-by-id ((document document) id)
(block nil (block t
(unless (dtd document) (unless (dtd document)
(return nil)) (return-from t nil))
(setf id (%rod id)) (setf id (%rod id))
(labels ((walk (n) (labels ((walk (n)
(dovector (c (dom:child-nodes n)) (dovector (c (dom:child-nodes n))
@ -441,7 +441,7 @@
(let* ((name (rod (cxml::attdef-name a))) (let* ((name (rod (cxml::attdef-name a)))
(value (dom:get-attribute c name))) (value (dom:get-attribute c name)))
(when (and value (rod= value id)) (when (and value (rod= value id))
(return c))))))) (return-from t c)))))))
(walk c))))) (walk c)))))
(walk document)))) (walk document))))