(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.