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