[cxml-cvs] CVS cxml/dom

[dlichteblau]

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)