(bind-func set_filter_env (lambda (inst:i8* a:float d s r) (let ((note (cref (cast inst [void]*) note_kernel [void]*))) (cset! note filter_env (array a d s r) |4,float|) void)))