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))