[cxml-cvs] CVS cxml/dom

[dlichteblau]

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)