(bind-func Vfill (lambda (v1 data:double*) (let ((size:size_t (tref v1 0)) (i:size_t 0)) (dotimes (i size) (gsl_vector_set v1 i (pref data i))) v1)))