;; | ----------------------------------------------------------------------------
;; | ST_str2lst
;; | ----------------------------------------------------------------------------
;; | Function : Convert String to List
;; | Argument : 'strng'  - String to convert
;; |            'delim'  - Delimiter to use to break down the string to a list
;; | Return   : The converted list
;; | Updated  : February 5, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun ST_str2lst (strng delim / stlist st pos)

(setq
	strng (strcat strng delim)
	pos T
	stlist '()
)
(while pos
	(setq pos (ST_fsrch strng delim))
	(if pos
	(setq
		st     (substr strng 1 (1- pos))
		stlist (append stlist (list st))
		strng  (substr strng (1+ pos))
	))
)
stlist
)