(bind-func ocv_imdecode (lambda (buf:ocv_ByteArray flags) (let ((mat (Image_IMDecode buf flags))) (zone_cleanup (Mat_Close mat)) (ocv_Mat mat))))