07/02/14 18:17:33 H1mJD9be0
>>302
\\(\\|\n\\) じゃなくて \n? でいいんじゃない？
あと map を使うとちょっとすっきり。
(defun convert-str-ignore-line-feed (str)
(format nil "~{~A~^\n?~}"
(map 'list #'(lambda (c)
(regexp-quote (string c)))
str)))
07/02/14 18:17:33 H1mJD9be0
>>302
\\(\\|\n\\) じゃなくて \n? でいいんじゃない？
あと map を使うとちょっとすっきり。
(defun convert-str-ignore-line-feed (str)
(format nil "~{~A~^\n?~}"
(map 'list #'(lambda (c)
(regexp-quote (string c)))
str)))