(define-method (toml-string (tarr <TomlArray>) (index <integer>))
  ((foreign-lambda* c-string ((c-pointer tarr)
                              (int index))
     "toml_datum_t datum = toml_string_at(tarr, index);"
     "char data[strlen(datum.u.s)+1];"
     "strcpy(data, datum.u.s);"
     "free(datum.u.s);"
     "C_return(data);")
   (ptr tarr) index))