routine to close read only files

Hody,

I'm looking for a routine which will close all the read only files which i have opened.

Thank you,

M

(vl-load-com)
(vlax-for
 dwg (vla-get-documents (vlax-get-acad-object))
   (if	(vl-catch-all-error-p
    (vl-catch-all-apply
	'(lambda ()
	     (if (= :vlax-true
		    (vla-get-readonly
			dwg
		    ) ;_ end_vla-get-readonly
		 ) ;_ end_=
		 (vla-close dwg :vlax-false)
	     ) ;_ end_if
	 ) ;_ end_lambda
    ) ;_ end_vl-catch-all-apply
) ;_ end_vl-catch-all-error-p
(vl-cmdf "._close" "y")
   ) ;_ end_if
   (princ)
) ;_ end_vlax-for