From 5c23f9dfad539e77ddcdb5fed62df5e5b75de6ef Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 8 Jan 2007 15:55:25 +0000 Subject: [PATCH] r11486: create file if not exists --- create-sql.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/create-sql.lisp b/create-sql.lisp index 9ed31c5..04bc2b6 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -277,6 +277,7 @@ This is much faster that using create-umls-db-insert." (defun translate-all-files (&key (extension "-trans") verbose force) "Translate all *umls-files* to optimized import format." + (when verbose (format t "UMLS Import: Translating file ~A.~%" (fil (find-ufile "MRXW_NONENG.RRF")))) (make-noneng-index-file extension :force force) (dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil)) (when verbose (format t "UMLS Import: Translating file ~A.~%" (fil f))) @@ -333,6 +334,7 @@ This is much faster that using create-umls-db-insert." (return-from translate-files output-path)) (with-open-file (ostream output-path :direction :output :if-exists :overwrite + :if-does-not-exist :create #+(and clisp unicode) :external-format #+(and clisp unicode) charset:utf-8) (dolist (input-ufile input-ufiles) -- 2.34.1