Удаление из списка каждого каждого второго элемента

(defun drop-second (w)
  (cond ((null  w) nil)
        (t (cons (car w) (drop-second (cddr w))))))
 
> (drop-second '(1 2 3 4 5))
(1 3 5)

(defun drop-second (w)
  (if w (cons (car w) (drop-second (cddr w))) nil))
 
> (drop-second '(1 2 3 4 5))
(1 3 5)

(defun drop-second (w)
  (when w (cons (car w) (drop-second (cddr w)))))
 
> (drop-second '(1 2 3 4 5))
(1 3 5)

(defun drop-second (w)
  (loop for a in w by #'cddr collect a))
 
> (drop-second '(1 2 3 4 5))
(1 3 5)

(defun drop-second (lst)
  (let ((l (length lst)))
    (mapcar 'car
       (remove-if (lambda (v) (zerop (cadr v)))
                  (mapcar (lambda (x n) (list x (% n 2))) lst (range 1 l))))))
  
==> drop-second
 
(drop-second '(a b c d e f))
 
==> (a c e)

(defun get-even-elements-using-counter (lst)
    (loop for i from 0 to (1- (length lst)) when (evenp i) collect (nth i lst)))
 
(print (get-even-elements-using-counter '(1 2 3 4 5 6 7 8 9 0)))
 
(1 3 5 7 9)

(defun del-second (lst)
  (cond ((null lst) nil) ;; из пустого списка удалять нечего
        (t (cons (car lst) (del-second (cddr lst)))))) ;; сохраняем нечетный (car) и вызываем функцию рекурсивно на хвосте списка без первого эл-та (cddr)

(t (cons (car lst) (del-second (cdr lst))))))