(bind-func xtm_dof (lambda (x y fstop flength) (xtm_dof:[void,float,float,float,float,i1]* x y fstop flength #f)))