;; | ---------------------------------------------------------------------------
;; | LI_Subtract
;; | ---------------------------------------------------------------------------
;; | Function : Returns all elements in first list which is not in second list
;; | Arguments:
;; |            'Lst1' - First List
;; |            'Lst2' - Second List
;; | Returns  : The subtracted list
;; | Updated  : December 23, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_Subtract( Lst1 Lst2 / Lst )

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