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

756/808 nodesetprefix01.xml

Browse Source 
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementTagName|
-                                             #(100 109 115 116 99 58 97 100 100
-                                               114 101 115 115)
-                                             'DOMTEST::%EQUAL) failed.
 757/808 nodesetprefix02.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|newAttrName|
-                                             #(100 111 109 58 97 100 100 114
-                                               101 115 115)
-                                             'DOMTEST::%EQUAL) failed.
This commit is contained in:
dlichteblau
2005-12-11 19:46:20 +00:00
parent 6101105d6f
commit ec9718fa64
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
DOMTEST
View File

@ -791,15 +791,7 @@ not implemented
TEST FAILED: NOT_SUPPORTED_ERR (9):
No entity resolver registered.
756/808 nodesetprefix01.xml
TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementTagName|
#(100 109 115 116 99 58 97 100 100
114 101 115 115)
'DOMTEST::%EQUAL) failed.
757/808 nodesetprefix02.xml
TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|newAttrName|
#(100 111 109 58 97 100 100 114
101 115 115)
'DOMTEST::%EQUAL) failed.
758/808 nodesetprefix03.xml
759/808 nodesetprefix04.xml
760/808 nodesetprefix05.xml
@ -854,4 +846,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml
805/808 systemId01.xml
6/763 tests failed; 45 tests were skipped
4/763 tests failed; 45 tests were skipped

8
dom/dom-impl.lisp
View File

@ -50,6 +50,14 @@
(dom:namespace-uri node)))
(setf (slot-value node 'prefix) newval))
(defmethod (setf dom:prefix) :after (newval (node attribute))
(setf (slot-value node 'name)
(concatenate 'rod newval #":" (dom:local-name node))))
(defmethod (setf dom:prefix) :after (newval (node element))
(setf (slot-value node 'tag-name)
(concatenate 'rod newval #":" (dom:local-name node))))
(defclass document (node)
((doc-type :initarg :doc-type :reader dom:doctype)
(dtd :initform nil :reader dtd)