;; | ---------------------------------------------------------------------------
;; | LI_Lst2Str
;; | ---------------------------------------------------------------------------
;; | Function : Convert a List to a String with a specified delimiter
;; | Argument : 'Lst'   - The List to convert to string
;; |            'Delim' - The delimiter to use for string separation
;; | Returns  : The concatenated string
;; | Update   : December 26, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_Lst2Str(Lst Delim / len tmp Str)
(setq
	len (length Lst)
	Str ""
)
(foreach tmp Lst
	(setq Str (strcat Str tmp Delim))
)

(if (/= Delim "")
(setq
	len (strlen Str)
	Str (substr Str 1 (1- len))
))
Str
)