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

fixed the DTD/SAX fix

Browse Source
This commit is contained in:
dlichteblau
2007-08-05 11:15:48 +00:00
parent 5fcc11f244
commit 3a37db3e9d
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
xml/xml-parse.lisp
View File

@ -1095,9 +1095,10 @@
(let ((e (find-element element-name dtd))) (let ((e (find-element element-name dtd)))
(cond (cond
((null e) ((null e)
(prog1
(setf (gethash element-name (dtd-elements dtd)) (setf (gethash element-name (dtd-elements dtd))
(make-elmdef :name element-name :content content-model)) (make-elmdef :name element-name :content content-model))
(sax:element-declaration (handler *ctx*) element-name content-model)) (sax:element-declaration (handler *ctx*) element-name content-model)))
((null content-model) ((null content-model)
e) e)
(t (t