From: David Lichteblau <david@lichteblau.com>
Date: Sat, 9 Feb 2008 23:12:41 +0000 (+0100)
Subject: fixed serialization of unknown elements
X-Git-Url: https://repo.or.cz/w/closure-html.git/commitdiff_plain/bfbae2691d400ff03ace42bca35e217b82b3f0a2

fixed serialization of unknown elements
---

diff --git a/src/parse/unparse.lisp b/src/parse/unparse.lisp
index 7abc65e..2810af5 100644
--- a/src/parse/unparse.lisp
+++ b/src/parse/unparse.lisp
@@ -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)