Fix creation of KCUILUI field

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 59f48269aa4bc3bc7520cf0a804f9d89e849559c..abe5a0a0f3b3f1cfaa584d458946c0a9576be41e 100644 (file)
--- 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 53c98e2c238a0ee32ce99807c010249b9b470338..42b30802cd6fc8e9aa535a9b70edf3d472c6ad0e 100644 (file)
--- 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"