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