Input text

* Representatives from <Sun> & <Novell> versions) & <Symphony>, <KOffice>, <Google> Docs & Spreadsheets and Microsoft Office.

code

(defun msg(message) (format t "~%~A~%" message) )

(defun cleanup (line) "Replace < and & with entities" (msg (cl-ppcre:regex-replace-all "&" line "&amp;")) (msg (cl-ppcre:regex-replace-all "<" line "&lt;")) )

The first message replaces & The second shows that &amp; has been changed back to &

* Representatives from <Sun> &amp; <Novell> versions) &amp; <Symphony>, <KOffice>, <Google> Docs &amp; Spreadsheets and Microsoft Office.

* Representatives from &lt;Sun> & &lt;Novell> versions) & &lt;Symphony>, &lt;KOffice>, &lt;Google> Docs & Spreadsheets and Microsoft Office.

regards