Macro: ENABLE-XML-SYNTAX

Documentation

Enable xml reader syntax for the file being compiled or loaded. You may consider using (enable-bracket-reader): {with-xml-syntax <foo :attr "bar" (lisp) >} Syntax examples: <foo :attribute "bar" (call lisp code) > <(progn 33) :bar 42 (@ "cAMeL" "eLitE-<>") "body-<>" > ==> <33 bar="42" cAMeL="eLitE-&lt;&gt;" >body-&lt;&gt;</33 > <"foo" :bar 42> ==> <foo bar="42"/>

Source

(defmacro enable-xml-syntax ()
  "Enable xml reader syntax for the file being compiled or loaded.

You may consider using (enable-bracket-reader):
  {with-xml-syntax
    <foo :attr \"bar\" (lisp) >}

Syntax examples:
  <foo :attribute \"bar\" (call lisp code) >

  <(progn 33) :bar 42 (@ \"cAMeL\" \"eLitE-<>\") \"body-<>\" >
==>
  <33 bar=\"42\" cAMeL=\"eLitE-&lt;&gt;\"
    >body-&lt;&gt;</33
  >

  <\"foo\" :bar 42>
==>
  <foo bar=\"42\"/>"
  '(eval-when (:compile-toplevel :execute)
    (setf *readtable* (copy-readtable *readtable*))
    (%enable-xml-syntax)))