qse/ase/test/lsp/t6.lsp

10 lines
69 B
Common Lisp

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