(bind-func static set_lfo_ad_decay_slope
(lambda (inst:i8* lfo_num:i32 slope:float)
(let ((fx (cref (cast inst [void]*) effect_kernel [void]*))
(mod_decay_slope (cref fx mod_decay_slope |4,float|*)))
(aset! mod_decay_slope lfo_num slope))))