Add another debugging guard #+pgloader-image.

2026-05-04 18:36:12 +02:00 · 2019-01-07 23:51:58 +01:00 · 2019-01-07 23:51:58 +01:00 · 204a0119cd
commit 204a0119cd
parent e4a4edb276
1 changed files with 1 additions and 0 deletions
--- 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"