(bind-func ocv_VideoWriter:[ocv_VideoWriter*,ocv_VideoWriterA]* (lambda (in) (let ((obj (alloc))) (tfill! obj in OCV_XTM_VideoWriter_T) obj)))