(bind-func cef_string_val (lambda (str:Symbol*) (let ((cefstr:cef_string_t* (salloc))) (cef_string_utf8_set (tref str 1) (tref str 0) cefstr 1) cefstr)))