bldc/tests/test_refmut_2.lisp

(define a (cons 1 2))

(setcdr a 199)

(check (and (= (car a) 1) (= (cdr a) 199)))