; reduce-to-set.l

(defun reduce-to-set (l)
  (cond
    ((null l) ())
    ((member (car l) (cdr l)) (reduce-to-set (cdr l)))
    (t (cons (car l) (reduce-to-set (cdr l))))
  )
)