[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv27264/xml

Modified Files:
	sax-proxy.lisp unparse.lisp 
Log Message:
hax:%want-strings-p


--- /project/cxml/cvsroot/cxml/xml/sax-proxy.lisp	2007/10/14 17:50:11	1.7
+++ /project/cxml/cvsroot/cxml/xml/sax-proxy.lisp	2007/10/21 17:07:23	1.8
@@ -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) , at args)
                 (let (result)
--- /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/10/14 17:50:12	1.21
+++ /project/cxml/cvsroot/cxml/xml/unparse.lisp	2007/10/21 17:07:23	1.22
@@ -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))