;; | ---------------------------------------------------------------------------
;; | LI_SameItems
;; | ---------------------------------------------------------------------------
;; | Function : Checks two lists A and B, and returns T if each item of the list
;; |            A is contained in list B and if the list B contains no other
;; |            elements not contained in list A. In other words, the two lists
;; |            A and B must have the same elements, but not necessarily in the
;; |            same order
;; | Argument : 'Lst1' - The first  list to compare
;; |            'Lst2' - The second list to compare with
;; | Returns  : T or nil
;; | Updated  : August 4, 2005
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun LI_SameItems ( Lst1 Lst2 / retVal )

(setq retVal (not (LI_Subtract Lst1 Lst2)))
)