Написать функцию, которая будет считать сколько раз заданный элемент встречается в списке - Lisp

Должны использоватся два параметра, список и элемент заранее спасибо за ответ)

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

ЗАДАЧА - считать сколько раз заданный элемент встречается в списке:
(исходный список : (a b c a b a) , результат : 3)

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

Задана функция count-element-occurrences
Функция принимает два аргумента: element и list
Внутри функции объявлена переменная count и инициализирована нулем
Рекурсивно вызывается функция count-element-occurrences с аргументами element и list
Если элемент element равен первому элементу списка list, то значение переменной count увеличивается на единицу
Результатом работы функции count-element-occurrences является значение переменной count
Пример использования функции: (count-element-occurrencesa`() -> 3`