(bind-func curl_setopts_authenticate (lambda (handle user:i8* password:i8*) (let ((userpass:i8* (salloc 256))) (sprintf userpass "%s:%s" user password) (curl_easy_setopt handle CURLOPT_USERPWD userpass))))