From 248c2f709ab539f5d4fdfd439c9baae4cf9d6eed Mon Sep 17 00:00:00 2001
From: Athos Ribeiro <athos.ribeiro@canonical.com>
Date: Tue, 12 Apr 2022 14:57:58 -0300
Subject: [PATCH] Force libcrypto reload in src/hooks.lisp

cl+ssl::libcrypto is also read at startup. If not properly closed in the
hooks, together with libssl, libcrypto will be loaded at startup and if
the first cl+ssl file alternative fails, the debugger is invoked.

* Fixes #1370
---
 src/hooks.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/hooks.lisp b/src/hooks.lisp
index c8cf1bc..ccebfad 100644
--- a/src/hooks.lisp
+++ b/src/hooks.lisp
@@ -24,6 +24,7 @@
   "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
+                                         cl+ssl::libcrypto
                                          mssql::sybdb))))
 
 (defun open-foreign-libs ()