KMRCLを眺める(218) CDATA-STRING — #:g1

Posted 2010-10-20 13:09:00 GMT

processes.lispも眺め終えてしまったので、今回から、xml-utils.lispです。
ということで、今回はKMRCLのxml-utils.lispから、CDATA-STRINGです。
定義は、

(defun cdata-string (str)
  (concatenate 'string "<![CDATA[" str "]]>"))
となっている通り、ずばりCDATAセクションな文字列を簡便に作成するためのものです。
動作は、
(kl::cdata-string "今回のでそれが良くわかったよ>>199感謝")
;⇒ "<![CDATA[今回のでそれが良くわかったよ>>199感謝]]>"

comments powered by Disqus