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