Update of /project/cxml/cvsroot/cxml/dom In directory clnet:/tmp/cvs-serv13701/dom Modified Files: dom-builder.lisp Log Message: klacks fixes --- /project/cxml/cvsroot/cxml/dom/dom-builder.lisp 2007/02/11 18:21:20 1.11 +++ /project/cxml/cvsroot/cxml/dom/dom-builder.lisp 2007/02/18 14:35:15 1.12 @@ -37,10 +37,11 @@ (setf (document handler) document) (push document (element-stack handler)))) +;; fixme +(defmethod sax::dtd ((handler dom-builder) dtd) + (setf (slot-value (document handler) 'dtd) dtd)) + (defmethod sax:end-document ((handler dom-builder)) - (setf (slot-value (document handler) 'dtd) - ;; FIXME! - (and cxml::*ctx* (cxml::dtd cxml::*ctx*))) (let ((doctype (dom:doctype (document handler)))) (when doctype (setf (slot-value (dom:entities doctype) 'read-only-p) t)