#!clisp

(setf lf (adan eva))

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