[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp

[David Lichteblau]

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