From 204a0119cd910a3213aaf97598a8048185196089 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Mon, 7 Jan 2019 23:51:58 +0100
Subject: [PATCH] Add another debugging guard #+pgloader-image.

---
 src/load/migrate-database.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/load/migrate-database.lisp b/src/load/migrate-database.lisp
index a9f1ba4..f62c5f3 100644
--- a/src/load/migrate-database.lisp
+++ b/src/load/migrate-database.lisp
@@ -341,6 +341,7 @@
                            (log-message :error "MSSQL ERROR: ~a" e)
                            (log-message :log "You might need to review the FreeTDS protocol version in your freetds.conf file, see http://www.freetds.org/userguide/choosingtdsprotocol.htm")
                            (return-from copy-database))
+                         #+pgloader-image
                          (condition (e)
                            (log-message :error
                                         "~a: ~a"