From 2d9eb36ae6820da23d8e452513c7c0c84819cd62 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 23:45:42 +0200
Subject: Add an XML declaration on the top of every XHTML page.

Ignore-this: 30a67e6d0750a396e9688b6f38354bef

darcs-hash:4f5c69ee78ebbd693e28257d8a212abe332fe23a
---
 macros.lisp | 1 +
 1 file changed, 1 insertion(+)
diff --git a/macros.lisp b/macros.lisp
index 02ff1ce..28fe6fa 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -25,6 +25,7 @@
 
 (yaclml:deftag <xhtml (&attribute dir lang xmlns (prologue t) &body body)
   (when prologue
+    (emit-princ "<?xml version='1.0' encoding='utf-8'?>")
     (emit-princ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"))
   (emit-open-tag "html" #+clisp `(("dir" . ,dir)
                                   ("lang" . ,lang)
-- 
cgit v1.2.3

