From bfbae2691d400ff03ace42bca35e217b82b3f0a2 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Sun, 10 Feb 2008 00:12:41 +0100 Subject: [PATCH] fixed serialization of unknown elements --- src/parse/unparse.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.11.4.GIT