Одинаковые элементы списка - Lisp

Помогите с задачей: нужно узнать, есть ли в заданном списке одинаковые элементы.

Листинг программы

(defun rep (w)
  (loop for a in (remove-duplicates w) when (> (count a w) 1) collect a))
 
> (rep '(0 1 1 2 2 2))
(1 2)

Объяснение кода листинга программы

В данном коде определён функционал для реализации списка с удалением дубликатов.

В строке с определением функции (defun rep (w)) создаётся функция с именем rep, которая принимает один аргумент w.
В цикле loop перебираются элементы списка w.
Условие when проверяет, является ли текущий элемент a повторяющимся (то есть встречается ли он более одного раза в списке w).
Если условие когда выполняется, то есть текущий элемент a является повторяющимся, то он собирается в новый список.
В конце функции возвращается новый список.
В примере использования функции (rep '(0 1 1 2 2 2)) в качестве списка w используется список (0 1 1 2 2 2).
Функция rep возвращает новый список (1 2), так как элементы 0 и 1 встречаются в списке w по одному разу, а остальные элементы (2 2) повторяются.