(define vw (ocv_VideoWriter "swiper1.wmv" "WMV2" 24.0 640 480 1)) (println "video writer open?" (ocv_isopen vw)) (ocv_close vw)