(bind-func GSL_SET_COMPLEX (lambda (z:gsl_complex* x y) (aset! (tref-ptr z 0) 0 x) (aset! (tref-ptr z 0) 1 y) z))