From 19db178d3422757aa9f019449baf33fe56289d2d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 14:13:50 +0200
Subject: For CLISP, revert to requiring the older version of Yaclml.

Ignore-this: 60f94bc6ac2e6b40f5c42b9f42314265

darcs-hash:b49d6773463ed5028bf17e5112e5f0498f3acdda
---
 macros.lisp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'macros.lisp')
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"))
 
-- 
cgit v1.2.3

