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