;;
;; ocv_isopen
;;
(bind-func ocv_scheme_isopen_object
(lambda (obj:<i8*,i32>*)
(let ((type (tref obj 1)))
(cond ((= type OCV_XTM_VideoCapture_T) (ocv_isopen (convert obj ocv_VideoCapture*)))
((= type OCV_XTM_VideoWriter_T) (ocv_isopen (convert obj ocv_VideoWriter*)))
(else (println "Error - bad ocv type:" type) 0)))))