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

Testing a change in the way we load CL+SSL.

Browse Source 
Apparently cl+ssl needs to be reloaded a very specific way at image startup
time, and provides a function to do just that. Let's try and use this piece
of magic rather cffi:load-foreign-library directly.
This commit is contained in:
Dimitri Fontaine 2018-04-16 15:46:16 +02:00
parent cb9e01f4d9
commit 01f877bad7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/hooks.lisp
View File

@ -17,7 +17,7 @@
(defun close-foreign-libs () (defun close-foreign-libs ()
"Close Foreign libs in use by pgloader at application save time." "Close Foreign libs in use by pgloader at application save time."
(let (#+sbcl (sb-ext:*muffled-warnings* 'style-warning)) (let (#+sbcl (sb-ext:*muffled-warnings* 'style-warning))
(mapc #'cffi:close-foreign-library '(;; cl+ssl::libssl (mapc #'cffi:close-foreign-library '(cl+ssl::libssl
mssql::sybdb)))) mssql::sybdb))))
(defun open-foreign-libs () (defun open-foreign-libs ()
@ -25,7 +25,10 @@
(let (#+sbcl (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 ;; we specifically don't load mssql::sybdb eagerly, it's getting loaded
;; in only when the data source is a MS SQL database. ;; in only when the data source is a MS SQL database.
(cffi:load-foreign-library 'cl+ssl::libssl))) ;;
;; and for CL+SSL, we need to call the specific reload function that
;; handles some context and things around loading with CFFI.
(cl+ssl:reload)))
#| #|
#+ccl (push #'open-foreign-libs *lisp-startup-functions*) #+ccl (push #'open-foreign-libs *lisp-startup-functions*)