klacks parser

2007-02-11 18:21:20 +00:00
parent aac4cb719c
commit 0596a0e63d
7 changed files with 649 additions and 82 deletions
--- a/dom/dom-builder.lisp
+++ b/dom/dom-builder.lisp
@ -38,7 +38,9 @@
    (push document (element-stack handler))))

 (defmethod sax:end-document ((handler dom-builder))
-  (setf (slot-value (document handler) 'dtd) (cxml::dtd cxml::*ctx*))
+  (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)