(bind-func ocv_clone (lambda (in:ocv_Mat*) (let ((mat (Mat_Clone (tref in 0)))) (zone_cleanup (Mat_Close mat)) (ocv_Mat mat))))