(bind-func Vmk4 (lambda (a b c d) (let ((v1 (Valloc 4))) (gsl_vector_set v1 0 a) (gsl_vector_set v1 1 b) (gsl_vector_set v1 2 c) (gsl_vector_set v1 3 d) v1)))