Edi Weitz edi@agharta.de writes:
On Mon, 16 Jul 2007 14:13:27 +0300, Volkan YAZICI yazicivo@ttnet.net.tr wrote: 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?
Execuse, that's my fault. I realized the mistake after I pressed C-c C-c. Here's a small snippet from the real code:
(write-string (cl-who:escape-string (make-string 1 :initial-element c)) some-output-stream)
Regards.