This commit is contained in:
Le Tuan 2025-06-17 11:52:12 +02:00 committed by GitHub
commit cf95fd47be
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

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)