From 1c71d374606cbbc92dbffdea09292c2acf0755af Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 16 Nov 2003 15:49:47 +0000
Subject: [PATCH] r8226: update to new dtd writing functions

---
 base.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/base.lisp b/base.lisp
index 517af2c..ecfd279 100644
--- a/base.lisp
+++ b/base.lisp
@@ -38,6 +38,17 @@
 (defun lml-print-date (date)
   (lml-write-string (date-string date)))
 
+(defun xml-header-stream (stream &key (version "1.0") (standalone :unspecified)
+		   (encoding :unspecified))
+  (format stream "<?xml version=\"~A\"~A~A ?>"
+	  version
+	  (if (eq standalone :unspecified)
+	      ""
+	      (format nil " standalone=\"~A\"" standalone))
+	  (if (eq encoding :unspecified)
+	      ""
+	      (format nil " encoding=\"~A\"" encoding))))
+	  
 (defun dtd-prologue (&optional (format :xhtml11) &key entities)
   (case format
     ((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset :xml)
-- 
2.34.1