mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-04 18:36:12 +02:00
Code Issues Projects Releases Wiki Activity

Fix hooks.lisp to have SBCL extensions #+sbcl protected.

Browse Source
This commit is contained in:
Dimitri Fontaine 2015-01-08 09:30:24 +01:00
parent 5f520737e6
commit 7fcee2617d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/hooks.lisp
View File

@ -13,13 +13,13 @@
(defun close-foreign-libs ()
"Close Foreign libs in use by pgloader at application save time."
(let ((sb-ext:*muffled-warnings* 'style-warning))
(let (#+sbcl (sb-ext:*muffled-warnings* 'style-warning))
(mapc #'cffi:close-foreign-library '(cl+ssl::libssl
mssql::sybdb))))
(defun open-foreign-libs ()
"Open Foreign libs in use by pgloader at application start time."
(let ((sb-ext:*muffled-warnings* 'style-warning))
(let (#+sbcl (sb-ext:*muffled-warnings* 'style-warning))
;; we specifically don't load mssql::sybdb eagerly, it's getting loaded
;; in only when the data source is a MS SQL database.
(cffi:load-foreign-library 'cl+ssl::libssl)))