From 3a37db3e9db0aef5b5887aa22c7cce792bf19646 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 5 Aug 2007 11:15:48 +0000 Subject: [PATCH] fixed the DTD/SAX fix --- xml/xml-parse.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp index 9a0b069..73fa41a 100644 --- a/xml/xml-parse.lisp +++ b/xml/xml-parse.lisp @@ -1095,9 +1095,10 @@ (let ((e (find-element element-name dtd))) (cond ((null e) - (setf (gethash element-name (dtd-elements dtd)) - (make-elmdef :name element-name :content content-model)) - (sax:element-declaration (handler *ctx*) element-name content-model)) + (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))) ((null content-model) e) (t