Resposta ao exercício 47

(defun junta (lista1 lista2)
  (if (null lista1)
    lista2
    (cons (first lista1) (junta (rest lista1) lista2))))

Esta função já existe em Lisp e denomina-se append.