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

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)