Update of /project/cxml/cvsroot/cxml/dom In directory clnet:/tmp/cvs-serv26091/dom

Modified Files: dom-builder.lisp Log Message: klacks parser

--- /project/cxml/cvsroot/cxml/dom/dom-builder.lisp 2005/12/27 01:35:14 1.10 +++ /project/cxml/cvsroot/cxml/dom/dom-builder.lisp 2007/02/11 18:21:20 1.11 @@ -38,7 +38,9 @@ (push document (element-stack handler))))

(defmethod sax:end-document ((handler dom-builder)) - (setf (slot-value (document handler) 'dtd) (cxml::dtd cxml::*ctx*)) + (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)