diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 23:47:48 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 23:47:48 +0200 |
| commit | 631d51270644310236eb5d26af2a56dce80f9eaf (patch) | |
| tree | 95bb27c4eabd9333bb7e5fa554260bd71ad98ab3 | |
| parent | 2d9eb36ae6820da23d8e452513c7c0c84819cd62 (diff) | |
Add newlines to the XHTML preamble.
Ignore-this: 2264578ec6b498c71fec68075fbb0e7e
darcs-hash:85aac4a0a5bb98b2e5f703edf331e0beac595f18
| -rw-r--r-- | macros.lisp | 4 |
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) |