hax:%want-strings-p

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))
 

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)

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))