From 612a2df000b3ff47d2454dbad0b901c1aa5558e7 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 5 Sep 2006 21:57:18 +0000 Subject: [PATCH] r11101: clisp ext form --- create-sql.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/create-sql.lisp b/create-sql.lisp index 6a31d42..fdc444c 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -282,7 +282,9 @@ This is much faster that using create-umls-db-insert." (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) -- 2.34.1