delete is destructive, but it won't change variable bindings

(let ((a (list 1 2 3)))
  (let ((original-a a)
        (b (delete 2 a)))
    (eq a original-a) ; always true
    a)) ; or original-a
; => (<???> . <???>)