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

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.

src/hooks.lisp

@@ -17,15 +17,18 @@
 (defun close-foreign-libs ()
   "Close Foreign libs in use by pgloader at application save time."
   (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))))
 
 (defun open-foreign-libs ()
   "Open Foreign libs in use by pgloader at application start time."
   (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)))
+    ;;
+    ;; 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*)