utf8-dom fixes.

recoding nach utf-8 jetzt der default.

xml/package.lisp

@@ -75,4 +75,6 @@
    #:make-recoder
    #:sax-proxy
    #:proxy-chained-handler
-   #:make-namespace-normalizer))
+   #:make-namespace-normalizer
+   #:rod-to-utf8-string
+   #:utf8-string-to-rod))

xml/recoder.lisp

@@ -74,6 +74,9 @@
     (%string public-id)
     (%string system-id))
 
+  (defwrapper sax:start-internal-subset ())
+  (defwrapper sax:end-internal-subset ())
+
   (defwrapper sax:end-dtd ())
 
   (defwrapper sax:unparsed-entity-declaration

xml/xml-parse.lisp

@@ -2552,13 +2552,18 @@
 
 (defun p/document
     (input handler
-     &key validate dtd root entity-resolver disallow-internal-subset)
+     &key validate dtd root entity-resolver disallow-internal-subset
+	  (recode t))
   ;; check types of user-supplied arguments for better error messages:
   (check-type validate boolean)
+  (check-type recode boolean)
   (check-type dtd (or null extid))
   (check-type root (or null rod))
   (check-type entity-resolver (or null function symbol))
   (check-type disallow-internal-subset boolean)
+  #+rune-is-integer
+  (when recode
+    (setf handler (make-recoder handler #'rod-to-utf8-string)))
   (let ((*ctx*
          (make-context :handler handler
 		       :main-zstream input