Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv27204/xml Modified Files: xml-parse.lisp Log Message: -ibm/not-wf/P42/ibm42n05.xml [not-wf?] FAILED: - well-formedness violation not detected -[ - Tests ETag with a wrong structure. The ETag of the element "root" - contains an Attribute (attr1="any"). - ] Date: Sun Nov 27 01:40:14 2005 Author: dlichteblau Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.17 cxml/xml/xml-parse.lisp:1.18 --- cxml/xml/xml-parse.lisp:1.17 Sun Nov 27 01:36:47 2005 +++ cxml/xml/xml-parse.lisp Sun Nov 27 01:40:13 2005 @@ -2644,7 +2644,9 @@ (multiple-value-bind (cat2 sem2) (read-token input) (unless (and (eq cat2 :etag) (eq (car sem2) name)) - (perror input "Bad nesting. ~S / ~S" (mu name) (mu (cons cat2 sem2))))) + (perror input "Bad nesting. ~S / ~S" (mu name) (mu (cons cat2 sem2)))) + (when sem2 + (wf-error "no attributes allowed in end tag"))) (sax:end-element (handler *ctx*) ns-uri local-name name)) (t