hax:%want-strings-p

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)