auto lisp 문자열을 특정 구분자로 분리후 리스트로 반환

(defun string_split (string pattern / n value str char)
  (setq n 1)
  (setq value (list))
  (setq str "")
  (repeat (1+ (strlen string))
    (setq char (substr string n 1))
    (if (or
 (= char pattern)
 (> n (strlen string))
)
      (progn
(setq value (append value (list str)))
(setq str "")
      )
      (setq str (strcat str char))
    )

    (setq n (1+ n))
  )
  value
)