utf8-dom fixes.

recoding nach utf-8 jetzt der default.

dom/dom-builder.lisp

@@ -83,7 +83,7 @@
 
 (defmethod sax:start-element
     ((handler dom-builder) namespace-uri local-name qname attributes)
-  (check-type qname rod)
+  (check-type qname rod)		;catch recoder/builder mismatch
   (with-slots (document element-stack) handler
     (let* ((nsp sax:*namespace-processing*)
 	   (element (make-instance 'element 

dom/dom-impl.lisp

@@ -1228,7 +1228,9 @@
     (when resolver
       (setf (document handler) owner)
       (push instance (element-stack handler))
-      (funcall resolver (dom:name instance) handler)))
+      #+cxml-system::utf8dom-file
+      (setf handler (cxml:make-recoder handler #'cxml:rod-to-utf8-string))
+      (funcall resolver (real-rod (dom:name instance)) handler)))
   (labels ((walk (n)
              (setf (slot-value n 'read-only-p) t)
              (when (dom:element-p n)

dom/dom-sax.lisp

@@ -12,7 +12,11 @@
     (handler document
      &key (include-xmlns-attributes sax:*include-xmlns-attributes*)
 	  include-doctype
-          include-default-values)
+          include-default-values
+	  (recode (typep document 'utf8-dom::node)))
+  #+rune-is-integer
+  (when recode
+    (setf handler (make-recoder handler #'utf8-string-to-rod)))
   (sax:start-document handler)
   (when include-doctype
     (let ((doctype (dom:doctype document)))