"destructive"(?) reverse in Common Lisp, Scheme and Ruby

reverse.lisp

* (defparameter xs '(1 2 3))
XS
* xs
(1 2 3)
* (nreverse xs)
(3 2 1)
* xs
(1)

reverse.rb

irb(main):001:0> xs = [1, 2, 3]
=> [1, 2, 3]
irb(main):002:0> xs.reverse!
=> [3, 2, 1]
irb(main):003:0> xs
=> [3, 2, 1]

reverse.scm

gosh> (define xs '(1 2 3))
xs
gosh> xs
(1 2 3)
gosh> (reverse! xs)
(3 2 1)
gosh> xs
(1)