fixed serialization of unknown elements
authorDavid Lichteblau <david@lichteblau.com>
Sat, 9 Feb 2008 23:12:41 +0000 (10 00:12 +0100)
committerDavid Lichteblau <david@radon.(none)>
Sat, 9 Feb 2008 23:12:41 +0000 (10 00:12 +0100)
src/parse/unparse.lisp

index 7abc65e..2810af5 100644 (file)
@@ -73,8 +73,9 @@
 
 (defmethod hax:start-element ((sink sink) name attributes)
   (let* ((key (find-symbol (string-upcase (rod-string name)) :keyword))
-        (elt (and key (sgml::find-element closure-html::*html-dtd* key)))
-        (attlist (sgml::element-attlist elt)))
+        (elt
+         (and key (sgml::find-element closure-html::*html-dtd* key nil nil)))
+        (attlist (and elt (sgml::element-attlist elt))))
     (push (cons name elt) (stack sink))
     (%write-rune #/< sink)
     (%write-rod name sink)