whitespace normalizer

2005-12-29 00:31:30 +00:00
parent 4df5d1d054
commit b0615afdd9
14 changed files with 135 additions and 11 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -2513,7 +2513,8 @@
      (let ((dtd (dtd *ctx*)))
        (sax:entity-resolver
         (handler *ctx*)
-         (lambda (name handler) (resolve-entity name handler dtd))))
+         (lambda (name handler) (resolve-entity name handler dtd)))
+        (sax::dtd (handler *ctx*) dtd))
      (list :DOCTYPE name extid))))

 (defun report-cached-dtd (dtd)