(let ((output-path (ufile-pathname out-ufile extension)))
(if (probe-file output-path)
(format t "File ~A already exists: skipping~%" output-path)
- (with-open-file (ostream output-path :direction :output)
+ (with-open-file (ostream output-path :direction :output
+ #+(and clisp unicode) :external-format
+ #+(and clisp unicode) charset:utf-8)
(dolist (input-ufile input-ufiles)
(with-umls-ufile (line input-ufile)
(translate-line out-ufile line ostream)