(defun append (x L)
(if (null L) (list x)
(cons (car L) (append x (cdr L)))))
Devrait faire l'affaire