Add lisp_write_cons() in write.c