diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-07 14:13:50 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-07 14:13:50 +0200 |
| commit | 19db178d3422757aa9f019449baf33fe56289d2d (patch) | |
| tree | e13ca5649dbfdaace9b241d64216955681bc83fc /macros.lisp | |
| parent | a55627d4d98f575a00d4bc71ff63476ad52ab65b (diff) | |
For CLISP, revert to requiring the older version of Yaclml.
Ignore-this: 60f94bc6ac2e6b40f5c42b9f42314265
darcs-hash:b49d6773463ed5028bf17e5112e5f0498f3acdda
Diffstat (limited to 'macros.lisp')
| -rw-r--r-- | macros.lisp | 12 |
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")) |