X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql.lisp;h=7c6cc2c42c01df87469ef44b363d1a93c72ef19a;hb=6b0acc8fd6324c9a8000d224808a50a781ea8c74;hp=27f6c4d3926eb1af43e6c380ef84419bb04b34b0;hpb=bd9f41ad4699320d51c338377b51b75c34bbc647;p=umlisp.git diff --git a/sql.lisp b/sql.lisp index 27f6c4d..7c6cc2c 100644 --- a/sql.lisp +++ b/sql.lisp @@ -22,10 +22,10 @@ (:2006ad . "MTS2006AD") (:2009ab . "MTS2009AB") (:2010aa . "MTS2010AA") - (:2012ab . "MTS2012AB") + (:2012ab_all . "MTS2012AB_ALL") (:2014ab . "MTS2014AB") (:2017aa . "KUMLS2017AA"))) -(defvar +default-umls-db+ "KUMLS2017AA") +(defvar +default-umls-db+ "MTS2012AB_ALL") (defun lookup-db-name (db) (cdr (assoc (ensure-keyword db) +umls-sql-map+)))