Memoize

common_lisp_regex

正規表現のメタ文字をクォート。

 
* (cl-ppcre:quote-meta-chars "http://basicwerk.com/memoize/")
; -> "http\\:\\/\\/basicwerk\\.com\\/memoize\\/"
 
* (cl-ppcre:quote-meta-chars "aaa\\n")
; -> "aaa\\\\n"
 

関数にまとめる。

 
(defun qe (str)
 (cond
  ((or (null str) (not (stringp str))) "")
  ((and (stringp str) (string= str "")) "")
  (t
   (cl-ppcre:quote-meta-chars str))))