(bind-func AudioBuffer_cstring
(lambda (frames chans samplerate phase root loopstart loopframes b64:i8*)
(let ((ab (AudioBuffer_malloc frames chans samplerate)))
(AudioBuffer_set_phase ab phase)
(AudioBuffer_set_root_pitch ab root)
(AudioBuffer_set_loop_start ab loopstart)
(AudioBuffer_set_loop_frames ab loopframes)
(AudioBuffer_set_data_b64 ab (String b64))
ab)))