- cxml-cvs@common-lisp.net - mailman3.common-lisp.net

[cxml-cvs] CVS update: cxml/test/domtest.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv8177/test Modified Files: domtest.lisp Log Message: ohne prefix haben wir beim namespace-processing aber trotzdem einen lname Date: Sun Dec 4 23:18:35 2005 Author: dlichteblau Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.9 cxml/test/domtest.lisp:1.10 --- cxml/test/domtest.lisp:1.9 Sun Dec 4 22:15:37 2005 +++ cxml/test/domtest.lisp Sun Dec 4 23:18:35 2005 @@ -615,7 +615,8 @@ (t (push (translate-statement e) code)))) `(lambda () - (let (,@bindings) + (let ((*files-directory* ,*files-directory*) ;fuer copy&paste: + ,@bindings) (declare (ignorable ,@(mapcar #'car bindings))) ,@(reverse code)))))) @@ -699,8 +700,8 @@ (ecase level (1 (merge-pathnames "tests/level1/core/" *directory*)) (2 (merge-pathnames "tests/level2/core/" *directory*)))) - (lisp (slurp-test (merge-pathnames href test-directory))) (*files-directory* (merge-pathnames "files/" test-directory)) + (lisp (slurp-test (merge-pathnames href test-directory))) (cxml::*validate* nil)) (print lisp) (when lisp

1 0

[cxml-cvs] CVS update: cxml/dom/dom-builder.lisp cxml/dom/dom-impl.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv8177/dom Modified Files: dom-builder.lisp dom-impl.lisp Log Message: ohne prefix haben wir beim namespace-processing aber trotzdem einen lname Date: Sun Dec 4 23:18:34 2005 Author: dlichteblau Index: cxml/dom/dom-builder.lisp diff -u cxml/dom/dom-builder.lisp:1.5 cxml/dom/dom-builder.lisp:1.6 --- cxml/dom/dom-builder.lisp:1.5 Sun Dec 4 21:35:15 2005 +++ cxml/dom/dom-builder.lisp Sun Dec 4 23:18:34 2005 @@ -80,19 +80,22 @@ (defmethod sax:start-element ((handler dom-builder) namespace-uri local-name qname attributes) (with-slots (document element-stack) handler - (let ((element (make-instance 'element + (let* ((nsp sax:*namespace-processing*) + (element (make-instance 'element :tag-name qname :owner document - :namespace-uri namespace-uri - :local-name local-name - :prefix (cxml::split-qname (cxml::rod qname)))) + :namespace-uri (when nsp namespace-uri) + :local-name (when nsp local-name) + :prefix (when nsp (cxml::split-qname (cxml::rod qname))))) (parent (car element-stack)) (anodes '())) (dolist (attr attributes) (let ((anode - (dom:create-attribute-ns document - (sax:attribute-namespace-uri attr) - (sax:attribute-qname attr))) + (if nsp + (dom:create-attribute-ns document + (sax:attribute-namespace-uri attr) + (sax:attribute-qname attr)) + (dom:create-attribute document (sax:attribute-qname attr)))) (text (dom:create-text-node document (sax:attribute-value attr)))) (setf (slot-value anode 'dom-impl::specified-p) Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.11 cxml/dom/dom-impl.lisp:1.12 --- cxml/dom/dom-impl.lisp:1.11 Sun Dec 4 22:44:06 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 23:18:34 2005 @@ -132,7 +132,8 @@ (etypecase x (null x) (rod x) - (string (string-rod x)))) + (string (string-rod x)) + (vector x))) (defun assert-writeable (node) (when (read-only-p node)

1 0

[cxml-cvs] CVS update: cxml/DOMTEST
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv8177 Modified Files: DOMTEST Log Message: ohne prefix haben wir beim namespace-processing aber trotzdem einen lname Date: Sun Dec 4 23:18:33 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.10 cxml/DOMTEST:1.11 --- cxml/DOMTEST:1.10 Sun Dec 4 22:44:06 2005 +++ cxml/DOMTEST Sun Dec 4 23:18:33 2005 @@ -556,9 +556,6 @@ 526/808 attrgetownerelement03.xml 527/808 attrgetownerelement04.xml 528/808 attrgetownerelement05.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|ownerElementName| - #(97 100 100 114 101 115 115) - 'DOMTEST::%EQUAL) failed. 529/808 createAttributeNS01.xml 530/808 createAttributeNS02.xml TEST FAILED: expected exception NAMESPACE_ERR @@ -614,7 +611,6 @@ 563/808 documentgetelementbyid01.xml 564/808 documentgetelementsbytagnameNS01.xml 565/808 documentgetelementsbytagnameNS02.xml -TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed. 566/808 documentgetelementsbytagnameNS03.xml 567/808 documentgetelementsbytagnameNS04.xml 568/808 documentgetelementsbytagnameNS05.xml @@ -623,25 +619,25 @@ 571/808 documentimportnode03.xml 572/808 documentimportnode04.xml 573/808 documentimportnode05.xml -TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {xxxxxxxx}>. +TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {52D57899}>. 574/808 documentimportnode06.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> - #<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL). + (#<DOM-IMPL::DOCUMENT {51AFD949}> + #<DOM-IMPL::DOCUMENT {51AFD949}> NIL). 575/808 documentimportnode07.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> - #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T). + (#<DOM-IMPL::DOCUMENT {51E0F1B1}> + #<DOM-IMPL::DOCUMENT-TYPE {51E0FAB1}> T). 576/808 documentimportnode08.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> - #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T). + (#<DOM-IMPL::DOCUMENT {51F8A1B1}> + #<DOM-IMPL::DOCUMENT-TYPE {51FA2FA1}> T). 577/808 documentimportnode09.xml 578/808 documentimportnode10.xml 579/808 documentimportnode11.xml @@ -656,7 +652,7 @@ 584/808 documentimportnode17.xml 585/808 documentimportnode18.xml 586/808 documentimportnode19.xml -TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTITY {xxxxxxxx}>. +TEST FAILED: The slot DOM-IMPL::NAME is unbound in the object #<DOM-IMPL::ENTITY {52051579}>. 587/808 documentimportnode20.xml implementationAttribute expandEntityReferences not supported, skipping test 588/808 documentimportnode21.xml @@ -699,7 +695,7 @@ 618/808 elementremoveattributens01.xml 619/808 elementsetattributenodens01.xml 620/808 elementsetattributenodens02.xml -TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE street="Yes" {xxxxxxxx}>. +TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE street="Yes" {52C329D1}>. 621/808 elementsetattributenodens03.xml TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 622/808 elementsetattributenodens04.xml @@ -708,15 +704,6 @@ implementationAttribute expandEntityReferences not supported, skipping test 625/808 elementsetattributens01.xml 626/808 elementsetattributens02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)> - when called with arguments - (NIL - #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 114 103 - 47 68 79 77 47 84 101 115 116 47 115 101 116 65 116 116 114 - 105 98 117 116 101 78 83) - #(116 104 105 115 58 115 116 114 101 101 116) - #(83 105 108 118 101 114 32 83 116 114 101 101 116)). 627/808 elementsetattributens03.xml 628/808 elementsetattributens04.xml 629/808 elementsetattributens05.xml @@ -740,7 +727,6 @@ 640/808 getElementById02.xml 641/808 getElementsByTagNameNS01.xml 642/808 getElementsByTagNameNS02.xml -TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 5) failed. 643/808 getElementsByTagNameNS03.xml 644/808 getElementsByTagNameNS04.xml 645/808 getElementsByTagNameNS05.xml @@ -748,7 +734,6 @@ 647/808 getElementsByTagNameNS07.xml 648/808 getElementsByTagNameNS08.xml 649/808 getElementsByTagNameNS09.xml -TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 5) failed. 650/808 getElementsByTagNameNS10.xml 651/808 getElementsByTagNameNS11.xml 652/808 getElementsByTagNameNS12.xml @@ -799,14 +784,14 @@ TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> - #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> NIL). + (#<DOM-IMPL::DOCUMENT {52C10309}> + #<DOM-IMPL::DOCUMENT-TYPE {5174B8A9}> NIL). 693/808 importNode17.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> when called with arguments - (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> - #<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL). + (#<DOM-IMPL::DOCUMENT {519843A1}> + #<DOM-IMPL::DOCUMENT {519A9DE1}> NIL). 694/808 internalSubset01.xml TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. 695/808 isSupported01.xml @@ -843,7 +828,7 @@ 719/808 namednodemapremovenameditemns03.xml 720/808 namednodemapremovenameditemns04.xml TEST FAILED: NOT_FOUND_ERR (8): -#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}> +#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {5289D969}> 721/808 namednodemapremovenameditemns05.xml 722/808 namednodemapremovenameditemns06.xml 723/808 namednodemapremovenameditemns07.xml @@ -877,7 +862,7 @@ TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:HAS-ATTRIBUTES (1)> when called with arguments - (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>). + (#<DOM-IMPL::DOCUMENT-TYPE {524EFAB1}>). 748/808 nodehasattributes03.xml 749/808 nodehasattributes04.xml 750/808 nodeissupported01.xml @@ -959,4 +944,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -62/763 tests failed; 45 tests were skipped \ No newline at end of file +57/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv4890/dom Modified Files: dom-impl.lisp Log Message: (import-node attribute) Date: Sun Dec 4 22:44:07 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.10 cxml/dom/dom-impl.lisp:1.11 --- cxml/dom/dom-impl.lisp:1.10 Sun Dec 4 22:41:13 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 22:44:06 2005 @@ -1238,7 +1238,11 @@ (defmethod dom:import-node ((document document) (node attribute) deep) (declare (ignore deep)) - (import-node-internal 'attribute document node t :name (dom:name node))) + (import-node-internal 'attribute + document node + t + :name (dom:name node) + :owner-element nil)) (defmethod dom:import-node ((document document) (node document-fragment) deep) (import-node-internal 'document-fragment document node deep))

1 0

[cxml-cvs] CVS update: cxml/DOMTEST
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv4890 Modified Files: DOMTEST Log Message: (import-node attribute) Date: Sun Dec 4 22:44:06 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.9 cxml/DOMTEST:1.10 --- cxml/DOMTEST:1.9 Sun Dec 4 22:41:13 2005 +++ cxml/DOMTEST Sun Dec 4 22:44:06 2005 @@ -555,7 +555,6 @@ 525/808 attrgetownerelement02.xml 526/808 attrgetownerelement03.xml 527/808 attrgetownerelement04.xml -TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE emp:zone="CANADA" {xxxxxxxx}>. 528/808 attrgetownerelement05.xml TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|ownerElementName| #(97 100 100 114 101 115 115) @@ -960,4 +959,4 @@ 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -63/763 tests failed; 45 tests were skipped \ No newline at end of file +62/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/DOMTEST
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv4855 Modified Files: DOMTEST Log Message: uh oh. (rod nil) => "NIL" Date: Sun Dec 4 22:41:13 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.8 cxml/DOMTEST:1.9 --- cxml/DOMTEST:1.8 Sun Dec 4 22:22:47 2005 +++ cxml/DOMTEST Sun Dec 4 22:41:13 2005 @@ -552,22 +552,14 @@ #P"/home/david/2001/DOM-Test-Suite/tests/level2/core/" 524/808 attrgetownerelement01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)> - when called with arguments - (NIL). 525/808 attrgetownerelement02.xml 526/808 attrgetownerelement03.xml 527/808 attrgetownerelement04.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> - when called with arguments - (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL T). +TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE emp:zone="CANADA" {xxxxxxxx}>. 528/808 attrgetownerelement05.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)> - when called with arguments - (NIL). +TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|ownerElementName| + #(97 100 100 114 101 115 115) + 'DOMTEST::%EQUAL) failed. 529/808 createAttributeNS01.xml 530/808 createAttributeNS02.xml TEST FAILED: expected exception NAMESPACE_ERR @@ -629,10 +621,6 @@ 568/808 documentgetelementsbytagnameNS05.xml 569/808 documentimportnode01.xml 570/808 documentimportnode02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> - when called with arguments - (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL NIL). 571/808 documentimportnode03.xml 572/808 documentimportnode04.xml 573/808 documentimportnode05.xml @@ -695,28 +683,11 @@ TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. 603/808 domimplementationhasfeature02.xml 604/808 elementgetattributenodens01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)> - when called with arguments - (NIL). 605/808 elementgetattributenodens02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)> - when called with arguments - (NIL). 606/808 elementgetattributenodens03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)> - when called with arguments - (NIL). 607/808 elementgetattributens02.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(100 101 102 97 117 108 116 86 97 - 108) - 'DOMTEST::%EQUAL) failed. 608/808 elementgetelementsbytagnamens02.xml 609/808 elementgetelementsbytagnamens04.xml -TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 1) failed. 610/808 elementgetelementsbytagnamens05.xml 611/808 elementhasattribute01.xml 612/808 elementhasattribute02.xml @@ -725,38 +696,18 @@ 615/808 elementhasattributens01.xml TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 616/808 elementhasattributens02.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 617/808 elementhasattributens03.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 618/808 elementremoveattributens01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> - when called with arguments - (#<DOM-IMPL::ELEMENT elem {xxxxxxxx}> NIL). 619/808 elementsetattributenodens01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 620/808 elementsetattributenodens02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:CLONE-NODE (1)> - when called with arguments - (NIL T). +TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE street="Yes" {xxxxxxxx}>. 621/808 elementsetattributenodens03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NODE-NS (1)> - when called with arguments - (#<DOM-IMPL::ELEMENT address {xxxxxxxx}> NIL). +TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 622/808 elementsetattributenodens04.xml 623/808 elementsetattributenodens05.xml 624/808 elementsetattributenodens06.xml implementationAttribute expandEntityReferences not supported, skipping test 625/808 elementsetattributens01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 626/808 elementsetattributens02.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)> @@ -768,10 +719,6 @@ #(116 104 105 115 58 115 116 114 101 101 116) #(83 105 108 118 101 114 32 83 116 114 101 101 116)). 627/808 elementsetattributens03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 628/808 elementsetattributens04.xml 629/808 elementsetattributens05.xml TEST FAILED: expected exception NAMESPACE_ERR @@ -780,29 +727,12 @@ 631/808 elementsetattributensurinull.xml TEST FAILED: expected exception NAMESPACE_ERR 632/808 getAttributeNS01.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(68 73 83 84 82 73 67 84) - 'DOMTEST::%EQUAL) failed. 633/808 getAttributeNS02.xml 634/808 getAttributeNS03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> - when called with arguments - (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL). 635/808 getAttributeNS04.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(78 101 119 86 97 108 117 101) - 'DOMTEST::%EQUAL) failed. 636/808 getAttributeNS05.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| - #(89 101 115) - 'DOMTEST::%EQUAL) failed. 637/808 getAttributeNodeNS01.xml 638/808 getAttributeNodeNS02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 639/808 getElementById01.xml TEST FAILED: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION DOM:TAG-NAME (1)> @@ -826,10 +756,6 @@ 653/808 getElementsByTagNameNS13.xml 654/808 getElementsByTagNameNS14.xml 655/808 getNamedItemNS01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 656/808 getNamedItemNS02.xml 657/808 getNamedItemNS03.xml 658/808 getNamedItemNS04.xml @@ -841,9 +767,7 @@ 664/808 hasAttributeNS02.xml 665/808 hasAttributeNS03.xml 666/808 hasAttributeNS04.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 667/808 hasAttributeNS05.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 668/808 hasAttributes01.xml 669/808 hasAttributes02.xml 670/808 hc_entitiesremovenameditemns1.xml @@ -907,26 +831,10 @@ 710/808 localName04.xml 711/808 namednodemapgetnameditemns01.xml 712/808 namednodemapgetnameditemns02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 713/808 namednodemapgetnameditemns03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 714/808 namednodemapgetnameditemns04.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 715/808 namednodemapgetnameditemns05.xml 716/808 namednodemapgetnameditemns06.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 717/808 namednodemapremovenameditemns01.xml 718/808 namednodemapremovenameditemns02.xml TEST FAILED: There is no applicable method for the generic function @@ -934,10 +842,6 @@ when called with arguments (NIL). 719/808 namednodemapremovenameditemns03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 720/808 namednodemapremovenameditemns04.xml TEST FAILED: NOT_FOUND_ERR (8): #(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}> @@ -945,61 +849,27 @@ 722/808 namednodemapremovenameditemns06.xml 723/808 namednodemapremovenameditemns07.xml 724/808 namednodemapremovenameditemns08.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> - when called with arguments - (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL). 725/808 namednodemapremovenameditemns09.xml 726/808 namednodemapsetnameditemns01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 727/808 namednodemapsetnameditemns02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). 728/808 namednodemapsetnameditemns03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). 729/808 namednodemapsetnameditemns04.xml 730/808 namednodemapsetnameditemns05.xml 731/808 namednodemapsetnameditemns06.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). +TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 732/808 namednodemapsetnameditemns07.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). +TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 733/808 namednodemapsetnameditemns08.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). +TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 734/808 namednodemapsetnameditemns09.xml 735/808 namednodemapsetnameditemns10.xml 736/808 namednodemapsetnameditemns11.xml 737/808 namespaceURI01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). 738/808 namespaceURI02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). 739/808 namespaceURI03.xml 740/808 namespaceURI04.xml 741/808 nodegetlocalname03.xml 742/808 nodegetnamespaceuri03.xml -TEST FAILED: The assertion (NULL DOMTEST-TESTS::|attrNSURINull|) failed. 743/808 nodegetownerdocument01.xml 744/808 nodegetownerdocument02.xml 745/808 nodegetprefix03.xml @@ -1027,17 +897,14 @@ 114 101 115 115) 'DOMTEST::%EQUAL) failed. 757/808 nodesetprefix02.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> - when called with arguments - (NIL). +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 TEST FAILED: expected exception NAMESPACE_ERR 759/808 nodesetprefix04.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION (SETF DOM:PREFIX) (1)> - when called with arguments - (#(116 101 115 116) NIL). +TEST FAILED: expected exception NAMESPACE_ERR 760/808 nodesetprefix05.xml 761/808 nodesetprefix06.xml 762/808 nodesetprefix07.xml @@ -1064,9 +931,9 @@ 781/808 removeAttributeNS01.xml 782/808 removeAttributeNS02.xml TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> + #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> when called with arguments - (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL). + (NIL). 783/808 removeNamedItemNS01.xml 784/808 removeNamedItemNS02.xml 785/808 removeNamedItemNS03.xml @@ -1074,21 +941,11 @@ 787/808 setAttributeNS02.xml 788/808 setAttributeNS03.xml 789/808 setAttributeNS04.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr| - #(110 101 119 86 97 108 117 101) - 'DOMTEST::%EQUAL) failed. 790/808 setAttributeNS05.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr| - #(60 110 101 119 86 97 108 117 101 - 62) - 'DOMTEST::%EQUAL) failed. 791/808 setAttributeNS06.xml 792/808 setAttributeNS07.xml TEST FAILED: expected exception NAMESPACE_ERR 793/808 setAttributeNS09.xml -TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr| - #(110 101 119 86 97 108 117 101) - 'DOMTEST::%EQUAL) failed. 794/808 setAttributeNS10.xml 795/808 setAttributeNodeNS01.xml 796/808 setAttributeNodeNS02.xml @@ -1097,21 +954,10 @@ 798/808 setAttributeNodeNS04.xml 799/808 setAttributeNodeNS05.xml 800/808 setNamedItemNS01.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). +TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 801/808 setNamedItemNS02.xml 802/808 setNamedItemNS03.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)> - when called with arguments - (NIL). 803/808 setNamedItemNS04.xml -TEST FAILED: There is no applicable method for the generic function - #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)> - when called with arguments - (NIL). 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -101/763 tests failed; 45 tests were skipped \ No newline at end of file +63/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv4855/dom Modified Files: dom-impl.lisp Log Message: uh oh. (rod nil) => "NIL" Date: Sun Dec 4 22:41:13 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.9 cxml/dom/dom-impl.lisp:1.10 --- cxml/dom/dom-impl.lisp:1.9 Sun Dec 4 22:22:47 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 22:41:13 2005 @@ -128,6 +128,12 @@ ;;; Implementation +(defun %rod (x) + (etypecase x + (null x) + (rod x) + (string (string-rod x)))) + (defun assert-writeable (node) (when (read-only-p node) (dom-error :NO_MODIFICATION_ALLOWED_ERR "~S is marked read-only." node))) @@ -251,7 +257,7 @@ (return k))))) (defmethod dom:create-element ((document document) tag-name) - (setf tag-name (rod tag-name)) + (setf tag-name (%rod tag-name)) (unless (cxml::valid-name-p tag-name) (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string tag-name))) (let ((result (make-instance 'element @@ -286,7 +292,7 @@ (values prefix local-name))) (defmethod dom:create-element-ns ((document document) uri qname) - (setf qname (rod qname)) + (setf qname (%rod qname)) (multiple-value-bind (prefix local-name) (safe-split-qname qname uri) (let ((result (make-instance 'element @@ -308,26 +314,26 @@ :owner document)) (defmethod dom:create-text-node ((document document) data) - (setf data (rod data)) + (setf data (%rod data)) (make-instance 'text :data data :owner document)) (defmethod dom:create-comment ((document document) data) - (setf data (rod data)) + (setf data (%rod data)) (make-instance 'comment :data data :owner document)) (defmethod dom:create-cdata-section ((document document) data) - (setf data (rod data)) + (setf data (%rod data)) (make-instance 'cdata-section :data data :owner document)) (defmethod dom:create-processing-instruction ((document document) target data) - (setf target (rod target)) - (setf data (rod data)) + (setf target (%rod target)) + (setf data (%rod data)) (unless (cxml::valid-name-p target) (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string target))) (make-instance 'processing-instruction @@ -336,7 +342,7 @@ :data data)) (defmethod dom:create-attribute ((document document) name) - (setf name (rod name)) + (setf name (%rod name)) (unless (cxml::valid-name-p name) (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name))) (make-instance 'attribute @@ -349,8 +355,8 @@ :owner document)) (defmethod dom:create-attribute-ns ((document document) uri qname) - (setf uri (rod uri)) - (setf qname (rod qname)) + (setf uri (%rod uri)) + (setf qname (%rod qname)) (multiple-value-bind (prefix local-name) (safe-split-qname qname uri) (make-instance 'attribute @@ -363,7 +369,7 @@ :owner document))) (defmethod dom:create-entity-reference ((document document) name) - (setf name (rod name)) + (setf name (%rod name)) (unless (cxml::valid-name-p name) (dom-error :INVALID_CHARACTER_ERR "not a name: ~A" (rod-string name))) (make-instance 'entity-reference @@ -371,7 +377,7 @@ :owner document)) (defmethod get-elements-by-tag-name-internal (node tag-name) - (setf tag-name (rod tag-name)) + (setf tag-name (%rod tag-name)) (let ((result (make-node-list)) (wild-p (rod= tag-name #"*"))) (labels ((walk (n) @@ -384,8 +390,8 @@ result)) (defmethod get-elements-by-tag-name-internal-ns (node uri lname) - (setf uri (rod uri)) - (setf lname (rod lname)) + (setf uri (%rod uri)) + (setf lname (%rod lname)) (let ((result (make-node-list)) (wild-uri-p (rod= uri #"*")) (wild-lname-p (rod= lname #"*"))) @@ -409,7 +415,7 @@ (block nil (unless (dtd document) (return nil)) - (setf id (rod id)) + (setf id (%rod id)) (labels ((walk (n) (dovector (c (dom:child-nodes n)) (when (dom:element-p c) @@ -703,19 +709,19 @@ ;;; NAMED-NODE-MAP (defmethod dom:get-named-item ((self named-node-map) name) - (setf name (rod name)) + (setf name (%rod name)) (with-slots (items) self (dolist (k items nil) (when (rod= name (dom:node-name k)) (return k))))) (defmethod dom:get-named-item-ns ((self named-node-map) uri lname) - (setf uri (rod uri)) - (setf lname (rod lname)) + (setf uri (%rod uri)) + (setf lname (%rod lname)) (with-slots (items) self (dolist (k items nil) - (when (and (equal uri (dom:namespace-uri k)) - (equal lname (dom:local-name k))) + (when (and (rod= uri (dom:namespace-uri k)) + (rod= lname (dom:local-name k))) (return k))))) (defun %set-named-item (map arg test) @@ -753,7 +759,7 @@ (defmethod dom:remove-named-item ((self named-node-map) name) (assert-writeable self) - (setf name (rod name)) + (setf name (%rod name)) (with-slots (items) self (dolist (k items (dom-error :NOT_FOUND_ERR "~A not found in ~A" name self)) (cond ((rod= name (dom:node-name k)) @@ -762,8 +768,8 @@ (defmethod dom:remove-named-item-ns ((self named-node-map) uri lname) (assert-writeable self) - (setf uri (rod uri)) - (setf lname (rod lname)) + (setf uri (%rod uri)) + (setf lname (%rod lname)) (with-slots (items) self (dolist (k items (dom-error :NOT_FOUND_ERR "~A not found in ~A" lname self)) @@ -786,7 +792,7 @@ (defmethod (setf dom:data) (newval (self character-data)) (assert-writeable self) - (setf newval (rod newval)) + (setf newval (%rod newval)) (setf (slot-value self 'value) newval)) (defmethod dom:length ((node character-data)) @@ -801,7 +807,7 @@ (defmethod dom:append-data ((node character-data) arg) (assert-writeable node) - (setq arg (rod arg)) + (setq arg (%rod arg)) (with-slots (value) node (setf value (concatenate 'rod value arg))) (values)) @@ -829,7 +835,7 @@ ;; Although we could implement this by calling DELETE-DATA, then INSERT-DATA, ;; we implement this function directly to avoid creating temporary garbage. (assert-writeable node) - (setf arg (rod arg)) + (setf arg (%rod arg)) (with-slots (value) node (unless (<= 0 offset (length value)) (dom-error :INDEX_SIZE_ERR "offset is invalid")) @@ -852,7 +858,7 @@ (defmethod dom:insert-data ((node character-data) offset arg) (assert-writeable node) - (setf arg (rod arg)) + (setf arg (%rod arg)) (with-slots (value) node (unless (<= 0 offset (length value)) (dom-error :INDEX_SIZE_ERR "offset is invalid")) @@ -889,7 +895,7 @@ (defmethod (setf dom:value) (new-value (node attribute)) (assert-writeable node) - (let ((rod (rod new-value))) + (let ((rod (%rod new-value))) (with-slots (children owner) node ;; remove children, add new TEXT-NODE child ;; (alas, we must not reuse an old TEXT-NODE) @@ -1147,7 +1153,7 @@ (defmethod (setf dom:data) (newval (self processing-instruction)) (assert-writeable self) - (setf newval (rod newval)) + (setf newval (%rod newval)) (setf (slot-value self 'data) newval)) ;; das koennte man auch mit einer GF machen

1 0

[cxml-cvs] CVS update: cxml/DOMTEST
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv2929 Modified Files: DOMTEST Log Message: 785/808 removeNamedItemNS03.xml -TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR Date: Sun Dec 4 22:22:47 2005 Author: dlichteblau Index: cxml/DOMTEST diff -u cxml/DOMTEST:1.7 cxml/DOMTEST:1.8 --- cxml/DOMTEST:1.7 Sun Dec 4 22:15:35 2005 +++ cxml/DOMTEST Sun Dec 4 22:22:47 2005 @@ -1070,7 +1070,6 @@ 783/808 removeNamedItemNS01.xml 784/808 removeNamedItemNS02.xml 785/808 removeNamedItemNS03.xml -TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR 786/808 setAttributeNS01.xml 787/808 setAttributeNS02.xml 788/808 setAttributeNS03.xml @@ -1115,4 +1114,4 @@ (NIL). 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -102/763 tests failed; 45 tests were skipped \ No newline at end of file +101/763 tests failed; 45 tests were skipped \ No newline at end of file

1 0

[cxml-cvs] CVS update: cxml/dom/dom-impl.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp.net:/tmp/cvs-serv2929/dom Modified Files: dom-impl.lisp Log Message: 785/808 removeNamedItemNS03.xml -TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR Date: Sun Dec 4 22:22:48 2005 Author: dlichteblau Index: cxml/dom/dom-impl.lisp diff -u cxml/dom/dom-impl.lisp:1.8 cxml/dom/dom-impl.lisp:1.9 --- cxml/dom/dom-impl.lisp:1.8 Sun Dec 4 22:15:36 2005 +++ cxml/dom/dom-impl.lisp Sun Dec 4 22:22:47 2005 @@ -1138,6 +1138,7 @@ (labels ((walk (n) (setf (slot-value n 'read-only-p) t) (when (dom:element-p n) + (setf (slot-value (dom:attributes n) 'read-only-p) t) (map nil #'walk (dom:items (dom:attributes n)))) (map nil #'walk (dom:child-nodes n)))) (walk instance)))

1 0

[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp
by dlichteblau＠common-lisp.net 04 Dec '05

04 Dec '05

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv2250/xml Modified Files: xml-parse.lisp Log Message: noch ne runde dom-fixes Date: Sun Dec 4 22:15:42 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.50 cxml/xml/xml-parse.lisp:1.51 --- cxml/xml/xml-parse.lisp:1.50 Sun Dec 4 19:44:06 2005 +++ cxml/xml/xml-parse.lisp Sun Dec 4 22:15:38 2005 @@ -181,7 +181,7 @@ ;;; parser context -(defvar *ctx*) +(defvar *ctx* nil) (defstruct (context (:conc-name nil)) handler

1 0