From 7fcee2617dc9eac06f9f3b81d5f5b7d7e02eb8fa Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 8 Jan 2015 09:30:24 +0100 Subject: [PATCH] Fix hooks.lisp to have SBCL extensions #+sbcl protected. --- src/hooks.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/hooks.lisp b/src/hooks.lisp index b5c191b..febc0a5 100644 --- a/src/hooks.lisp +++ b/src/hooks.lisp @@ -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)))