#!clisp

(setf lf '(adan eva))

(defun exchange (lf) cons((last lf) (first lf)))