jak-project/test/old_goal_tests/tests/test-insert-cons.gc

(test-setup '((c . w) (a . b) (e . f)) #f)

(let ((alist (list (cons 'a 'b)
                   (cons 'c 'd)
                   (cons 'e 'f))))
  (set! alist (insert-cons! (cons 'c 'w) alist))
  (format #t "~A~%" alist)
  )