;; | ---------------------------------------------------------------------------
;; | LI_RemLst
;; | ---------------------------------------------------------------------------
;; | Function : Remove all occurrences of an element from list
;; | Argument : 'itm'    - Element to be removed from list
;; |            'Lst'    - List to be checked
;; | Returns  : The updated list
;; | Update   : December 26, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_RemLst( itm lst / nlst elem len )
(setq nlst '())
(foreach elem lst
	(if (not (equal elem itm))
		(setq nlst (append nlst (list elem)))
	)
)
nlst
)