HAX integration buglet

* xml/sax-handler.lisp (HAX:START-DOCUMENT): Write a doctype only
	if a system ID was given.
This commit is contained in:
dlichteblau
2007-10-14 19:04:36 +00:00
parent df50f2547d
commit 378af1f38a

View File

@ -423,8 +423,9 @@ Setting this variable has no effect unless both
(defmethod hax:start-document ((handler abstract-handler) name pubid sysid) (defmethod hax:start-document ((handler abstract-handler) name pubid sysid)
(sax:start-document handler) (sax:start-document handler)
(sax:start-dtd handler name pubid sysid) (when sysid
(sax:end-dtd handler name pubid sysid)) (sax:start-dtd handler name pubid sysid)
(sax:end-dtd handler)))
(defmethod hax:start-element ((handler abstract-handler) name attributes) (defmethod hax:start-element ((handler abstract-handler) name attributes)
(setf name (runes:rod-downcase name)) (setf name (runes:rod-downcase name))