r11101: clisp ext form

[umlisp.git] / create-sql.lisp

diff --git a/create-sql.lisp b/create-sql.lisp
index 4658a877ea7382c59a4ab2b892bb3ca8cd37f0f9..fdc444c9cf2bd8fb1279674bff3f8e5c0e414cf0 100644 (file)
--- a/create-sql.lisp
+++ b/create-sql.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -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)