(bind-func xtm_release_note (lambda (note:i8*) (let ((nd:NoteData* (cast note))) (if (not (null? nd)) (note_gate nd 0.0))) void))