(bind-func VtoPtr (lambda (v1) (let ((size:size_t (tref v1 0)) (ptr:double* (zalloc (* 8 size))) (i 0)) (dotimes (i size) (pset! ptr i (gsl_vector_get v1 i))) ptr)))