More MySQL debugging information.

src/sources/mysql/mysql-schema.lisp

@@ -76,6 +76,7 @@
 (defun mysql-query (query &key row-fn (as-text t) (result-type 'list))
   "Execute given QUERY within the current *connection*, and set proper
    defaults for pgloader."
+  (log-message :debug "MySQL: sending query: ~a" query)
   (qmynd:mysql-query (conn-handle *connection*) query
                      :row-fn row-fn
                      :as-text as-text

src/sources/mysql/mysql.lisp

@@ -321,6 +321,10 @@
        (+ (length all-columns) (length all-fkeys)
           (length all-indexes) (length view-columns))))
 
+   (log-message :notice
+                "MySQL metadata fetched: found ~d tables with ~d indexes total."
+                (length all-columns) (length all-indexes))
+
    ;; now return a plist to the caller
    (list :all-columns all-columns
          :table-comments table-comments