summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:13:50 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:13:50 +0200
commit19db178d3422757aa9f019449baf33fe56289d2d (patch)
treee13ca5649dbfdaace9b241d64216955681bc83fc
parenta55627d4d98f575a00d4bc71ff63476ad52ab65b (diff)
For CLISP, revert to requiring the older version of Yaclml.
Ignore-this: 60f94bc6ac2e6b40f5c42b9f42314265 darcs-hash:b49d6773463ed5028bf17e5112e5f0498f3acdda
-rw-r--r--macros.lisp12
1 files changed, 8 insertions, 4 deletions
diff --git a/macros.lisp b/macros.lisp
index 52c6618..ad4dc4b 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -26,10 +26,14 @@
(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" #+clisp `(("dir" . ,dir)
+ ("lang" . ,lang)
+ ("xml:lang" . ,lang)
+ ("xmlns" . ,xmlns))
+ #-clisp `("dir" ,dir
+ "lang" ,lang
+ "xml:lang" ,lang
+ "xmlns" ,xmlns))
(emit-body body)
(emit-close-tag "html"))