bldc/tests/test_refmut_4.lisp

(define a 1)

(define r (setcdr a 999))

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