From b3cd5f28d60270b1028bf05d8795fe4168a9027e Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Fri, 27 Mar 2020 23:24:16 +0100 Subject: [PATCH] Set the MS SQL port in the environment. As our API to connect to MS SQL does not provide a facility to set the target port number, place it in the TDSPORT environment variable, which is reported to have the expected impact. Should fix #1094. --- src/sources/mssql/mssql-connection.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/sources/mssql/mssql-connection.lisp b/src/sources/mssql/mssql-connection.lisp index 3483180..b203b18 100644 --- a/src/sources/mssql/mssql-connection.lisp +++ b/src/sources/mssql/mssql-connection.lisp @@ -17,6 +17,9 @@ (setf (slot-value msconn 'type) "mssql")) (defmethod open-connection ((msconn mssql-connection) &key) + ;; we can't pass in the port number, set it in the TDSPORT env instead + (setf (uiop:getenv "TDSPORT") (princ-to-string (db-port msconn))) + (setf (conn-handle msconn) (mssql:connect (db-name msconn) (db-user msconn) (db-pass msconn)