[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv30820/xml

Modified Files:
	sax-handler.lisp 
Log Message:
More documentation bits and HAX fixes:

	* xml/sax-handler.lisp: Remove namespace attributes in
	HAX-to-SAX conversion.  Signal a warning in deprecates methods,
	not an error.


--- /project/cxml/cvsroot/cxml/xml/sax-handler.lisp	2007/10/14 20:19:35	1.11
+++ /project/cxml/cvsroot/cxml/xml/sax-handler.lisp	2007/10/21 14:16:24	1.12
@@ -291,9 +291,9 @@
 		  nil)
 		(:method ((handler t) , at args)
 		  (declare (ignore , at args))
-		  (error "deprecated SAX default method used by a handler ~
-                          that is not a subclass of SAX:ABSTRACT-HANDLER ~
-                          or HAX:ABSTRACT-HANDLER")
+		  (warn "deprecated SAX default method used by a handler ~
+                         that is not a subclass of SAX:ABSTRACT-HANDLER ~
+                         or HAX:ABSTRACT-HANDLER")
 		  nil)
 		(:method ((handler abstract-handler) , at args)
 		  (declare (ignore , at args))
@@ -311,6 +311,11 @@
 
   (define-event (start-element default-handler)
       (namespace-uri local-name qname attributes)
+    (setf attributes
+	  (remove "http://www.w3.org/2000/xmlns/"
+		  attributes
+		  :key #'attribute-namespace-uri
+		  :test #'equal))
     (hax:start-element handler local-name attributes))
 
   (define-event (start-prefix-mapping content-handler)