Пример 11.2

(setq x 'y)

(set x 'NEW)

(print x)

(print y)