#;1> (use srfi-1)
#;2> (define a '(1 2 3))
#;3> (define b (reverse! a))
#;4> a
(1)
#;5> b
(3 2 1)