[Common Lisp] メモ: string-trim

 

 
参考:

 
http://cl-cookbook.sourceforge.net/strings.html#trim
 

 
;; 文字列先頭・末尾の半角ペース、改行、タブを削除する
(defun trim (str)
 (string-trim '(#\Space #\newline #\tab) str))
 
;; 全角のスペースも削除する
;; (coerce "　" 'character) ;; 全角スペースの character 表記を取得
;; -> #\IDEOGRAPHIC_SPACE
(defun trimm (str)
 (string-trim '(#\Space #\newline #\tab #\IDEOGRAPHIC_SPACE) str))