X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=create-sql.lisp;h=fdc444c9cf2bd8fb1279674bff3f8e5c0e414cf0;hb=612a2df000b3ff47d2454dbad0b901c1aa5558e7;hp=6a31d422a4e5be388a55885c80bfe8abd094b1ee;hpb=32de5f079093b0ec4141dc797b3acd805c975b48;p=umlisp.git

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)