(bind-func vector_test (lambda () (let ((a (vector_test_a))) (printf "%f:%f:%f:%f\n" (ftod (vref a 0)) (ftod (vref a 1)) (ftod (vref a 2)) (ftod (vref a 3))) void)))