From 1f1defe942e7e1370a2a00b41aa393653e0247c2 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 21 Mar 2021 06:09:37 +0000
Subject: [PATCH] Change default SQL server host

---
 sql.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sql.lisp b/sql.lisp
index 452237e..97874c7 100644
--- 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)
-- 
2.34.1