(setq x '(a b c)) (setq y '(x y z)) (setcar x y) (setcar y x) x y