Initialize MSSQL library when used

This commit is contained in:
Tuan Le 2024-01-16 18:15:18 +01:00
parent 2079646c81
commit 14cf7c0955

View File

@ -151,8 +151,10 @@
`(lambda ()
;; now is the time to load the CFFI lib we need (freetds)
(let (#+sbcl(sb-ext:*muffled-warnings* 'style-warning))
(cffi:load-foreign-library 'mssql::sybdb))
(cffi:load-foreign-library 'mssql::sybdb)
(mssql:init))
(unwind-protect
(let* ((*default-cast-rules* ',*mssql-default-cast-rules*)
(*cast-rules* ',casts)
(*mssql-settings* ',mssql-gucs)
@ -179,7 +181,8 @@
:on-error-stop on-error-stop
,@(remove-batch-control-option options))
,(sql-code-block pg-db-conn :post after "after load"))))
,(sql-code-block pg-db-conn :post after "after load"))
(mssql:exit))))
(defrule load-mssql-database load-mssql-command
(:lambda (source)