klacks fixes

2007-02-18 14:35:14 +00:00
parent 0d67d0719d
commit 2623586d4c
6 changed files with 146 additions and 42 deletions
--- a/dom/dom-builder.lisp
+++ b/dom/dom-builder.lisp
@ -37,10 +37,11 @@
    (setf (document handler) document)
    (push document (element-stack handler))))

+;; fixme
+(defmethod sax::dtd ((handler dom-builder) dtd)
+  (setf (slot-value (document handler) 'dtd) dtd))
+
 (defmethod sax:end-document ((handler dom-builder))
-  (setf (slot-value (document handler) 'dtd)
-	;; FIXME!
-	(and cxml::*ctx* (cxml::dtd cxml::*ctx*)))
  (let ((doctype (dom:doctype (document handler))))
    (when doctype
      (setf (slot-value (dom:entities doctype) 'read-only-p) t)