секој втор атом стави го во посебни загради

(defun sekojVtor (lista)
    (sekojVtorPom lista 0)
)

(defun sekojVtorPom (lista zag)
    (cond
        ((null lista) nil)
        ((eq zag 0) (cons (car lista) (sekojVtorPom (cdr lista) 1)))
        ((eq zag 1) (append (list (list (car lista))) (sekojVtorPom (cdr lista) 0)))
    )

)

(print (sekojVtor '(1 2 3 4 5 6)))