;; | ---------------------------------------------------------------------------
;; | LI_MakeUnique
;; | ---------------------------------------------------------------------------
;; | Function : Make all members of the list unique and return the unique list
;; | Argument : 'Lst'    - The list to operate on.
;; | Returns  : The Unique list
;; | Comment  : The returned list will have no two elements the same
;; | Update   : December 1, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_MakeUnique( Lst / Lst1 tmp )

(setq Lst1 '())
(foreach tmp Lst
	(if (not (member tmp Lst1))
		(setq Lst1 (cons tmp Lst1))
	)
)
(reverse Lst1)
)