Yaclml

YACLML tags mapping to HTML4 tags. 

Helper macro fer defining the tag macros 

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defun make-effective-attributes (attributes)
    (with-collector (attrs)
      (dolist (attr attributes)
        (case attr
          (:core  (attrs 'class 'id 'style 'title))
          (:i18n  (attrs 'dir 'lang))
          (:event (attrs 'onclick 'ondblclick
                         'onkeydown 'onkeypress
                         'onkeyup 'onmousedown
                         'onmousemove 'onmouseout
                         'onmouseover 'onmouseup))
          (t (attrs attr))))
      (attrs))))