Функция в COMMON LISP, Emacs

Мне нужно реализовать функцию, которая для заданного элемента считает количество его повторений в списке. Вот моя реализация:

(defun rpts (elem source)
    (let ((counter 0))
        (dolist (i source))
        (if (= i elem) (setq counter (+ 1 counter)))))

Подскажите, пожалуйста, что здесь не так?