X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql.lisp;h=7d2b0c6d652171eb9c6e1146986e6ff4776a3960;hb=0f5f4f56ab77890ac68b8fb34a2edcca4962e152;hp=863c9ef79604dd0e0c3d8dd782608774cfc1dc95;hpb=7924236e2d4095f8e04a5598a8464f35c1829f20;p=umlisp.git diff --git a/sql.lisp b/sql.lisp index 863c9ef..7d2b0c6 100644 --- a/sql.lisp +++ b/sql.lisp @@ -19,10 +19,8 @@ (in-package #:umlisp) (defvar +umls-sql-map+ - '((:2002AD . "KUMLS2002AD") (:2003AA . "KUMLS2003AA") - (:2003AB . "KUMLS2003AB") (:2003AC . "KUMLS2003AC") - (:2004AA . "KUMLS2004AA"))) -(defvar +default-umls-db+ :2003AC) + '((:2004aa . "KUMLS2004AA"))) +(defvar +default-umls-db+ :2004aa) (defun lookup-db-name (db)