Множество

(defun mnozestvo (lista)
    (cond
        ((null lista) nil)
        (t (cons (car lista)(remove (car lista)(mnozestvo (cdr lista)))))
    ))

(print (mnozestvo '(a b a d c b a c)))