[cxml-cvs] CVS cxml/dom
dlichteblau
dlichteblau at common-lisp.net
Sun Feb 18 14:35:15 UTC 2007
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)
More information about the Cxml-cvs
mailing list