samesetp

(defun samesetp (lis1 lis2)

(if (and (not (null lis1)) (not (null lis2)))

(let ((x (first lis1)) (y (first lis2)))

(cond ((and (listp x) (listp y))

(and (samesetp x y) (samesetp (rest lis1) (rest lis2))))

(t (and (eq x y) (samesetp (rest lis1) (rest lis2))))))

(= (length lis1) (length lis2))))

(defun samesetp (lis1 lis2)

"Another Version of samesetp."

(if (null lis1) (null lis2)

(let ((x (remove (first lis1) lis2)))

(if (equal lis2 x) nil (equivalence (rest lis1) x)))))

Checking the equality of sets in 2 lists without considering the order.