clear_object(ao_lisp_busy, move_old, move_size);
mark_object(ao_lisp_busy, move_new, move_size);
if (busy_object(ao_lisp_cons, move_old)) {
clear_object(ao_lisp_busy, move_old, move_size);
mark_object(ao_lisp_busy, move_new, move_size);
if (busy_object(ao_lisp_cons, move_old)) {