X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=sql.lisp;h=27f6c4d3926eb1af43e6c380ef84419bb04b34b0;hp=7c6cc2c42c01df87469ef44b363d1a93c72ef19a;hb=HEAD;hpb=6b0acc8fd6324c9a8000d224808a50a781ea8c74 diff --git a/sql.lisp b/sql.lisp index 7c6cc2c..97874c7 100644 --- a/sql.lisp +++ b/sql.lisp @@ -23,9 +23,8 @@ (:2009ab . "MTS2009AB") (:2010aa . "MTS2010AA") (:2012ab_all . "MTS2012AB_ALL") - (:2014ab . "MTS2014AB") - (:2017aa . "KUMLS2017AA"))) -(defvar +default-umls-db+ "MTS2012AB_ALL") + (:2020ab_all . "MTS2020AB_ALL"))) +(defvar +default-umls-db+ "MTS2020AB_ALL") (defun lookup-db-name (db) (cdr (assoc (ensure-keyword db) +umls-sql-map+))) @@ -41,21 +40,21 @@ (keyword (setq *umls-sql-db* (lookup-db-name db))))) -(defvar *umls-sql-user* "umls") +(defvar *umls-sql-user* "mts") (defun umls-sql-user () *umls-sql-user*) (defun set-umls-sql-user (u) (sql-disconnect-pooled) (setq *umls-sql-user* u)) -(defvar *umls-sql-passwd* "umls") +(defvar *umls-sql-passwd* "_mts") (defun umls-sql-passwd () *umls-sql-passwd*) (defun set-umls-sql-passwd (p) (sql-disconnect-pooled) (setq *umls-sql-passwd* p)) -(defvar *umls-sql-host* "localhost") +(defvar *umls-sql-host* "mysql.med-info.com") (defun umls-sql-host () *umls-sql-host*) (defun set-umls-sql-host (h)