Simon Cusack
2007-05-27 23:41:45 UTC
Hi,
tag is getting converted to a string but *html-empty-tags* are keywords.
I changed
(member tag *html-empty-tags*)
to
(member tag *html-empty-tags* :test #'string-equal)
and made it happy.
the following test
(in-package :who)
(with-html-output-to-string (blah)
(with-html-output (blah)
(:input :value "test this")
(:div)
(:div "test this")))
Used to produce:
"<input value='test this'></input><div></div><div>test this</div>"
and now produces;
"<input value='test this' /><div></div><div>test this</div>"
From my testing it seems that the default convert-tag-to-string-list
isn't finding the tags in html-empty-tag when it should. It looks liketag is getting converted to a string but *html-empty-tags* are keywords.
I changed
(member tag *html-empty-tags*)
to
(member tag *html-empty-tags* :test #'string-equal)
and made it happy.
the following test
(in-package :who)
(with-html-output-to-string (blah)
(with-html-output (blah)
(:input :value "test this")
(:div)
(:div "test this")))
Used to produce:
"<input value='test this'></input><div></div><div>test this</div>"
and now produces;
"<input value='test this' /><div></div><div>test this</div>"