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