From f894817b99c5b9624ebb7a0388f415ace23b8ce5 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 2 Mar 2010 09:05:10 -0700 Subject: [PATCH] Fix creation of KCUILUI field --- parse-rrf.lisp | 2 +- sql.lisp | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) 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" -- 2.34.1