- (lml-write-string +xml-prologue-string+)
- (lml-write-char #\newline)))
- (case format
- ((:xhtml11 :xhtml)
- (lml-write-string +xhtml11-dtd-string+))
- (:xhtml10-strict
- (lml-write-string +xhtml10-strict-dtd-string+))
- (:xhtml10-transitional
- (lml-write-string +xhtml10-transitional-dtd-string+))
- (:xhtml10-frameset
- (lml-write-string +xhtml10-frameset-dtd-string+))
+ (lml-write-string +xml-prologue-begin+)
+ (ecase encoding
+ (:iso-8859-1
+ (lml-write-string "iso-8859-1"))
+ (:utf-8
+ (lml-write-string "UTF-8")))
+ (lml-write-string +xml-prologue-end+)
+ (lml-write-char #\newline)
+ (case format
+ ((:xhtml11 :xhtml)
+ (lml-write-string +xhtml11-dtd-string+))
+ (:xhtml10-strict
+ (lml-write-string +xhtml10-strict-dtd-string+))
+ (:xhtml10-transitional
+ (lml-write-string +xhtml10-transitional-dtd-string+))
+ (:xhtml10-frameset
+ (lml-write-string +xhtml10-frameset-dtd-string+)))
+ (when entities
+ (lml-write-char #\space)
+ (lml-write-char #\[)
+ (lml-write-char #\Newline)
+ (lml-write-string entities)
+ (lml-write-char #\Newline)
+ (lml-write-char #\]))
+ (lml-write-char #\>))