;;; Функция преобразования строки в список строк по символу-разделителю
(defun Str_List (Str			; Строка
		  SymDivider		; Разделитель строки
		  / 
                  s1			; Шаблон "_*"
		  s2			; Шаблон "*_*"
		  l			; Список строк
		  i			; Индекс
)
  (setq	l  (list Str)
	s1 (strcat SymDivider "*")
	s2 (strcat "*" s1)
  )
  (while (wcmatch Str s2)
    (setq i 1)
    (while (not (wcmatch (substr Str i) s1))
      (setq i (1+ i))
    )
    (setq l   (cons (substr Str 1 (1- i)) l)
	  Str (substr Str (1+ i))
    )
  )
  (setq l (cdr (reverse (cons Str l))))
)