Преобразовать список во множество

(defun преобразовать_список (список)
        (let ((новый_список nil))
            (dolist (элемент список)
                 (setf новый_список (pushnew элемент новый_список)))
         новый_список))

(defun -remove-duplicates (w &aux (a (car w)) (d (cdr w)))
  (when w (if (member a d) (-remove-duplicates d)
              (cons a (-remove-duplicates d)))))
 
> (-remove-duplicates '(a a 1 1))
(A 1)

(defun make-set (lst &optional (r nil))
  (cond ((null lst) r)
        ((member (car lst) r) (make-set (cdr lst) r))
        (t (make-set (cdr lst) (cons (car lst) r)))))
 
==> make-set
 
(make-set '(a b c c c a a b))
 
==> (c b a)

(PRINT (REMOVE-DUPLICATES '(1 2 3 4 32 4 3 3 3 3 ф ф ф ф в в в в)))
* (1 2 32 4 3 Ф В)

(DEFUN REMOVE-DUPLCATES-AGAIN (LST)
       (REMOVE-DUPLICATES LST))
 
(PRINT (REMOVE-DUPLCATES-AGAIN '(1 1 1 1 1 2 2 2 3 3 3 )))

(setf (symbol-function 'remove-duplicates-again) (symbol-functions 'remove-duplicates))