(define a 1)

(define r (setcar a 999))

(check (and (not r) (= a 1)))