From 5142cfe2b86a10ee565b73f88d20fb96fb0ff14d Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 22 Jul 2007 19:43:27 +0000 Subject: [PATCH] DTD/SAX fix --- xml/xml-parse.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index 94943b0..9a0b069 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -1096,7 +1096,8 @@ (cond ((null e) (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)) ((null content-model) e) (t