OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed DTD serialization bugs, thanks to _3b for the report

Browse Source
This commit is contained in:
dlichteblau
2007-11-24 00:04:16 +00:00
parent 77db951f12
commit 37b4873ee4
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xml/xml-parse.lisp
View File

@ -1098,7 +1098,8 @@
(prog1
(setf (gethash element-name (dtd-elements dtd))
(make-elmdef :name element-name :content content-model))
(sax:element-declaration (handler *ctx*) element-name content-model)))
(when content-model
(sax:element-declaration (handler *ctx*) element-name content-model))))
((null content-model)
e)
(t
@ -2101,8 +2102,7 @@
(wf-error input "Malformed or invalid content model: ~S." (mu content)))
(p/S? input)
(expect input :\>)
(when *validate*
(define-element (dtd *ctx*) name content))
(define-element (dtd *ctx*) name content)
(list :element name content)))
(defun maybe-compile-cspec (e)