Множество - дупликати

(setq lista1 nil)
(defun pomosna (lista1 lista)
    (cond
        ((null lista) lista1)
        (t(pomosna (cons (car lista)lista1)(remove (car lista)(cdr lista))))
        )
    )

(defun mnozestvo (lista)
    (pomosna '() lista)
    )

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