summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--macros.lisp4
1 files changed, 3 insertions, 1 deletions
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)