From 631d51270644310236eb5d26af2a56dce80f9eaf Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 23:47:48 +0200
Subject: Add newlines to the XHTML preamble.

Ignore-this: 2264578ec6b498c71fec68075fbb0e7e

darcs-hash:85aac4a0a5bb98b2e5f703edf331e0beac595f18
---
 macros.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/macros.lisp b/macros.lisp
index 28fe6fa..0b516f4 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -26,7 +26,9 @@
 (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-princ (format nil "~%"))
+    (emit-princ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
+    (emit-princ (format nil "~%")))
   (emit-open-tag "html" #+clisp `(("dir" . ,dir)
                                   ("lang" . ,lang)
                                   ("xml:lang" . ,lang)
-- 
cgit v1.2.3

