Support :with-unwind-protect t/nil in xml syntax
Support :with-unwind-protect t/nil in xml syntax

(defmacro with-dom-replacements (&body body)
  `{with-xml-syntax
     <dom-replacements :with-unwind-protect t :xmlns "http://www.w3.org/1999/xhtml"
        ,@body >})

(with-dom-replacements
  (render ajax-component))

(PROGN
  (WRITE-STRING "<dom-replacements xmlns=\"http://www.w3.org/1999/xhtml\">" *YACLML-STREAM*)
  (UNWIND-PROTECT
      (PROGN (RENDER AJAX-COMPONENT))
    (WRITE-STRING "</dom-replacements>" *YACLML-STREAM*))
  NIL)

darcs-hash:20060615165116-6b9e8-ffbed8c1c154cecce1b903f721dfd42969c2d36c

capitaomorte/whopper