(define a (list 1 2 3 4))
(define b (list a 'x 'y 'z))
(gc)
(check (and
(eq a (list 1 2 3 4))
(eq b (list (list 1 2 3 4) 'x 'y 'z))))