summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 13:39:36 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 13:39:36 +0200
commit988d11a8f188b45af64fa2579718f990b34f3aa6 (patch)
tree478587076ba926c65b9e92db29c51d8c91d36cf5
parent085ed27ad08096d1878d98b302caa06716f49e5a (diff)
Update for the most recent version of Yaclml.
Ignore-this: c8441c0ffd4a147c8a6f01c1b89c2f4b darcs-hash:94c3831dbe9231dba730708e4cf66daf2bd0825b
-rw-r--r--macros.lisp8
1 files changed, 4 insertions, 4 deletions
diff --git a/macros.lisp b/macros.lisp
index a17891f..52c6618 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -26,10 +26,10 @@
(yaclml:deftag <xhtml (&attribute dir lang xmlns (prologue t) &body body)
(when prologue
(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" `(("dir" . ,dir)
- ("lang" . ,lang)
- ("xml:lang" . ,lang)
- ("xmlns" . ,xmlns)))
+ (emit-open-tag "html" `("dir" ,dir
+ "lang" ,lang
+ "xml:lang" ,lang
+ "xmlns" ,xmlns))
(emit-body body)
(emit-close-tag "html"))