utf8-dom fixes.

recoding nach utf-8 jetzt der default.
2005-12-27 01:35:13 +00:00
parent 42987f5dba
commit dbb2732913
12 changed files with 191 additions and 59 deletions
--- a/dom/dom-impl.lisp
+++ b/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)