On Mon, 16 Jul 2007 14:13:27 +0300, Volkan YAZICI yazicivo@ttnet.net.tr wrote:
In a parser I'm working on, trying to convert hand-written documents into XHTML form. And for this purpose using CL-WHO integrated within META-SEXP. Because of character-by-character parsing, I need to escape unrecognized atoms on-the-fly. At the moment, I'm using below method.
(elt (cl-who:escape-string (make-string 1 :initial-element character-needs-escaping)) 0)
Hmm, I don't think I undertstand that. Grabbing just the first character will usually just give you the ampersand:
CL-USER 1 > (let ((character-needs-escaping #>)) (elt (cl-who:escape-string (make-string 1 :initial-element character-needs-escaping)) 0)) #&
Is that really what you want?