diff options
| -rw-r--r-- | macros.lisp | 8 |
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")) |