Escreva um programa LISP que duplica os elementos de uma lista usando uma função recursiva chamada duplicar_elementos() - Exercícios Resolvidos de LISP

A lista original é: (1 2 3 4 5 6 7 8)
A nova lista é: (1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8)

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

; vamos criar uma função recursiva que duplica os elementos
; de uma lista e retorna a nova lista
(defun duplicar_elementos(lista)
  ; a lista está vazia?
  (if (eql lista nil)
    nil
  ; efetua mais uma chamada recursiva 	
  (append (list (car lista) (car lista)) 
    (duplicar_elementos (cdr lista))))
)

(let (lista)
  ; vamos criar uma nova lista
  (setq lista '(1 2 3 4 5 6 7 8))

  ; vamos mostrar o conteúdo da lista original
  (format t "A lista original é: ~D" lista)

  ; agora vamos duplicar todos os elementos da lista
  (setq lista (duplicar_elementos lista))

  ; e mostramos o resultado
  (format t "~%A nova lista é: ~D" lista)
)