blob: 28eed508ea0f26cd9fdc2d2d78871579e011bd3e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(diagnostics!)
(setq! foo (cons 1 2))
(setq! bar (cons foo 3))
(setq! baz (cons bar foo))
(diagnostics!)
(print! foo)
(setcar! foo baz)
(print! (cdr (car (car foo))))
(diagnostics!)
(setq! foo nil)
(setq! bar nil)
(setq! baz nil)
(diagnostics!)
|
