(bind-func active_notes (lambda (inst:i8*) (let ((val (cref (cast inst [void]*) numactive i64))) (convert val i32))))