list = sc->vptr->cons (sc,
                                           sc->vptr->mk_string
                                               (sc, array[j] ? array[j] : ""),
                                           list);
                    sc->vptr->set_car (return_val, list)