Здраствуйте!

Вот задачка. "Вычислить сумму ряда целых чётных чисел от n до 2n"



(defun sum(n);                                                                     вычисляет сумму ряда целых чётных чисел от n до 2n
    (
     do ((count n) (rezult 0));                                                 задаем переменным начальные значения
        ((> count ( * 2 n)) rezult);                                           если Coun > 2n,  то выводим результат
        (when (evenp count) (setq rezult(+ rezult count)));   когда число четное, суммируем его;
                                                       
        (setq count (+ count 1));                                             переходим к следующему числу
    )
)
 



Помогите пожалуйста(