Change default SQL server host

diff --git a/sql.lisp b/sql.lisp
index 452237e64eff460ebe15c665239e775d3f9fa21f..97874c7b77c294df986e8053b6329a5a7638315b 100644 (file)
--- a/sql.lisp
+++ b/sql.lisp
@@ -54,7 +54,7 @@
   (sql-disconnect-pooled)
   (setq *umls-sql-passwd* p))
 
-(defvar *umls-sql-host* "sql1.med-info.com")
+(defvar *umls-sql-host* "mysql.med-info.com")
 (defun umls-sql-host ()
   *umls-sql-host*)
 (defun set-umls-sql-host (h)