[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv20681/xml

Modified Files:
	sax-handler.lisp 
Log Message:
HAX integration buglet

	* xml/sax-handler.lisp (HAX:START-DOCUMENT): Write a doctype only
	if a system ID was given.


--- /project/cxml/cvsroot/cxml/xml/sax-handler.lisp	2007/10/14 17:50:11	1.9
+++ /project/cxml/cvsroot/cxml/xml/sax-handler.lisp	2007/10/14 19:04:36	1.10
@@ -423,8 +423,9 @@
 
 (defmethod hax:start-document ((handler abstract-handler) name pubid sysid)
   (sax:start-document handler)
-  (sax:start-dtd handler name pubid sysid)
-  (sax:end-dtd handler name pubid sysid))
+  (when sysid
+    (sax:start-dtd handler name pubid sysid)
+    (sax:end-dtd handler)))
 
 (defmethod hax:start-element ((handler abstract-handler) name attributes)
   (setf name (runes:rod-downcase name))