From aee7890e8d54e5611b5af86cd402353772d650f0 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 21 Oct 2007 17:07:23 +0000
Subject: [PATCH] hax:%want-strings-p

---
 dom/dom-builder.lisp | 4 ++++
 xml/sax-proxy.lisp   | 4 ++++
 xml/unparse.lisp     | 4 ++++
 3 files changed, 12 insertions(+)

diff --git a/dom/dom-builder.lisp b/dom/dom-builder.lisp
index f41a0cd..13c47f7 100644
--- a/dom/dom-builder.lisp
+++ b/dom/dom-builder.lisp
@@ -21,6 +21,10 @@
    (internal-subset             :accessor internal-subset)
    (text-buffer   :initform nil :accessor text-buffer)))
 
+#+(and rune-is-integer (not cxml-system::utf8dom-file))
+(defmethod hax:%want-strings-p ((handler dom-builder))
+  nil)
+
 (defun make-dom-builder ()
   (make-instance 'dom-builder))
 
diff --git a/xml/sax-proxy.lisp b/xml/sax-proxy.lisp
index efdad84..4c6a4f2 100644
--- a/xml/sax-proxy.lisp
+++ b/xml/sax-proxy.lisp
@@ -29,6 +29,10 @@
 (defmethod (setf proxy-chained-handler) (newval (instance sax-proxy))
   (setf (broadcast-handler-handlers instance) (list newval)))
 
+#-rune-is-character
+(defmethod hax:%want-strings-p ((handler broadcast-handler))
+  (hax:%want-strings-p (car (broadcast-handler-handlers instance))))
+
 (macrolet ((define-proxy-method (name (&rest args))
              `(defmethod ,name ((handler broadcast-handler) ,@args)
                 (let (result)
diff --git a/xml/unparse.lisp b/xml/unparse.lisp
index 2c30da2..60cfcb5 100644
--- a/xml/unparse.lisp
+++ b/xml/unparse.lisp
@@ -82,6 +82,10 @@
      (have-internal-subset :initform nil :accessor have-internal-subset)
      (stack :initform nil :accessor stack)))
 
+#-rune-is-character
+(defmethod hax:%want-strings-p ((handler sink))
+  nil)
+
 (defmethod initialize-instance :after ((instance sink) &key)
   (when (eq (canonical instance) t)
     (setf (canonical instance) 1))