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

;;; Представим множество через список
;;; множество будет упорядоченно по возрастанию
;;; для упрощения операции добавления
(defun add-to-set (item set)
    (if (null set)
      (cons item nil)
      (let ((c (car set)))
        (cond ((< item c)
           (cons item set))
          ((= item c)
           set)
          (t
           (cons c
             (add-to-set item (cdr set))))))))
 
;;; Функция list->set будет использовать вышеописанную
;;; функцию add-to-set
(defun list->set (list)
  (labels ((iter (lst set)
         (if (null lst)
         set
         (iter (cdr lst)
               (add-to-set (car lst)
                   set)))))
    (iter list nil)))
 
CL-USER> (list->set '(1 34 -3 8 -3 1 1 32 1 9 8 7 5 4 5))
 
(-3 1 4 5 7 8 9 32 34)
CL-USER>

(defun list->set (list)
  (if (null list)
      nil
      (add-to-set (car list)
          (list->set (cdr list)))))

(DEFUN MEMBER (X L)
    (COND
        ((ATOM L) NIL)
        ((EQUAL X (CAR L)) T)
        (T (MEMBER X (CDR L)))))
 
(DEFUN CREATE SET (L R)
    (COND 
        ((ATOM L) NIL)
        ((NOT (MEMBER (CAR L) R)) (CONS (CAR L) (CREATE (CDR L) (CONS (CAR L) R))))
        (T (CREATE (CDR L) R))))
 
 
(PRINT '_)
(SETQ L '(a b a a c c))
(PRINT (CREATESET L NIL))