(bind-func sys_file_getc (lambda (file) (let ((char_ptr:i8* (salloc))) (apr_file_getc char_ptr file) (pref char_ptr 0))))