(gen-std-footer ,site ,plist ,command))))))
(gen-std-footer ,site ,plist ,command))))))
(lml-write-string "<pagedata xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:html=\"http://www.w3.org/TR/REC-html40\">")
(lml-write-char #\Newline)
(when title
(lml-write-string "<pagedata xmlns:xlink=\"http://www.w3.org/1999/xlink\" xmlns:html=\"http://www.w3.org/TR/REC-html40\">")
(lml-write-char #\Newline)
(when title
(lml-write-string "<body>"))
((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional
:xhtml10-frameset)
(dtd-prologue format)
(lml-write-string
"<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">")
(lml-write-string "<body>"))
((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional
:xhtml10-frameset)
(dtd-prologue format)
(lml-write-string
"<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">")