Прокомментировать код - Lisp (229537)

Формулировка задачи:

Добрый вечер, можете пожалуйста помочь (прокомментировать) разобраться в программе (автор -

_sg

)? Программа удаляет из списка каждый второй элемент.

(defun drop-second (w)
  (if w (cons (car w) (drop-second (cddr w))) nil))

Решение задачи: «Прокомментировать код»

textual
                            Листинг программы 
                        
                            span class="sy0"> * (member 'a '(c d e r a s s d ))
 
(A S S D);; как видим он возвращает все элементы после нахождения искомого включительно с ним