* (defvar *foo* '(4 5 6))

*FOO*
* (union '(1 2 3) *foo*)

(3 2 1 4 5 6)
* (cdddr *)

(4 5 6)
* (eq * *foo*)

T