(bind-func dsp:[float,float,i64,i64,float*]* (let ((TSM_method (TSM_TIM_sPL))) (lambda (in time chan dat) (TSM_method in))))