""
(format nil " encoding=\"~A\"" encoding))))
-(defun dtd-prologue (&optional (format :xhtml11) &key entities)
- (case format
+(defun dtd-prologue (&optional (format :xhtml11) (encoding :iso-8859-1) &key entities)
+ (ecase format
((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset :xml)
- (lml-write-string +xml-prologue-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)