(bind-func ocv_VideoCapture:[ocv_VideoCapture*,ocv_VideoCaptureA]* (lambda (in) (let ((obj (alloc))) (tfill! obj in OCV_XTM_VideoCapture_T) obj)))