mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-07 23:07:00 +02:00
Code Issues Projects Releases Wiki Activity

Initialize MSSQL library when used

Browse Source
This commit is contained in:
Tuan Le 2024-01-16 18:15:18 +01:00
parent 2079646c81
commit 14cf7c0955
1 changed files with 28 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/parsers/command-mssql.lisp
View File

@ -151,8 +151,10 @@
`(lambda () `(lambda ()
;; now is the time to load the CFFI lib we need (freetds) ;; now is the time to load the CFFI lib we need (freetds)
(let (#+sbcl(sb-ext:*muffled-warnings* 'style-warning)) (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*) (let* ((*default-cast-rules* ',*mssql-default-cast-rules*)
(*cast-rules* ',casts) (*cast-rules* ',casts)
(*mssql-settings* ',mssql-gucs) (*mssql-settings* ',mssql-gucs)
@ -179,7 +181,8 @@
:on-error-stop on-error-stop :on-error-stop on-error-stop
,@(remove-batch-control-option options)) ,@(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 (defrule load-mssql-database load-mssql-command
(:lambda (source) (:lambda (source)