lisp рекурсии

[zaki]

Есть список L. Нужно брать из этого списка каждый 2 элемент, и производить с ним какое то действие ( сам сделаю, нужно только понять как брать нужный мне элемент рекурсией)
Сам пока только имею это:
(defun steep2 (l)
(cond ((NULL l) NIL)
(T (......))))

[zaki]

Есть вот что:
(defun first4 (l)
(cond ((NULL l) NIL)
(T (setf (car (cddr l)) (* (car (cddr l)) 2)))))(print l))

>> (first4 `(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))

Возвращает:
NIL
(13 14 30)
(10 11 24 13 14 30)
(7 8 18 10 11 24 13 14 30)
(4 5 12 7 8 18 10 11 24 13 14 30)
(1 2 6 4 5 12 7 8 18 10 11 24 13 14 30)
(1 2 6 4 5 12 7 8 18 10 11 24 13 14 30)


Подозреваю - что неправильное условие в cond... Не могу сообразить