(bind-func xtm_update_matrices (lambda (shader:ShaderProgram* model:float* view:float* projection:float*) (let ((lights (xtm_get_lights))) (shader_update_matrices_lvs shader model view projection (tref lights 9) (tref lights 8)))))