I think these tests don't show off the functionality of clone. Maybe something like

    (let* ((a '(1 2 3)) (b (-clone a))) (nreverse a) b)

?