From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 2 Mar 2010 16:05:10 +0000 (-0700)
Subject: Fix creation of KCUILUI field
X-Git-Tag: debian-2007ac.2-6~9
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=f894817b99c5b9624ebb7a0388f415ace23b8ce5

Fix creation of KCUILUI field
---

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 59f4826..abe5a0a 100644
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -222,7 +222,7 @@ used in the United States. We create a new scale (SRLUS) where SRL to SRLUS mapp
                                                  (parse-ui (vff "MRCONSO.RRF" "SUI" x))))))
       ("MRCONSO.RRF" "KCUILUI" "BIGINT" 0
        (lambda (x) (write-to-string (make-cuilui (parse-ui (vff "MRCONSO.RRF" "CUI" x))
-                                                 (parse-ui (vff "MRCONSO.RRF" "SUI" x))))))
+                                                 (parse-ui (vff "MRCONSO.RRF" "LUI" x))))))
       ("MRCONSO.RRF" "KCUILRL" "TINYINT" 0
        (lambda (x) (write-to-string (cui-lrl (parse-ui (vff "MRCONSO.RRF" "CUI" x))))))
       ("MRCONSO.RRF" "KCUILRLUS" "TINYINT" 0
diff --git a/sql.lisp b/sql.lisp
index 53c98e2..42b3080 100644
--- a/sql.lisp
+++ b/sql.lisp
@@ -76,7 +76,9 @@
 (defun sql-connect ()
   "Connect to UMLS database, automatically used pooled connections"
   (clsql:connect (umls-connection-spec)
-                 :database-type *umls-sql-type* :pool t))
+                 :database-type *umls-sql-type*
+                 :encoding :utf-8
+                 :pool t))
 
 (defun sql-disconnect (conn)
   "Disconnect from UMLS database, but put connection back into pool"