diff --git a/src/pgsql/queries.lisp b/src/pgsql/queries.lisp index d2ede5d..6f3965f 100644 --- a/src/pgsql/queries.lisp +++ b/src/pgsql/queries.lisp @@ -80,7 +80,7 @@ `(let (#+unix (cl-postgres::*unix-socket-dir* (get-unix-socket-dir ,pgconn))) (with-connection (conn ,pgconn) (let ((pomo:*database* (conn-handle conn))) - (log-message :debug "CONNECT ~s" conn) + (log-message :debug "CONNECTED TO ~s" conn) (set-session-gucs *pg-settings*) (handling-pgsql-notices ,@forms))))) diff --git a/src/sources/mysql/mysql-schema.lisp b/src/sources/mysql/mysql-schema.lisp index d2b4d6e..6a968ca 100644 --- a/src/sources/mysql/mysql-schema.lisp +++ b/src/sources/mysql/mysql-schema.lisp @@ -64,7 +64,7 @@ :username (db-user myconn) :password (db-pass myconn) :database (db-name myconn)))) - (log-message :debug "CONNECT ~a" myconn) + (log-message :debug "CONNECTED TO ~a" myconn) ;; return the connection object myconn)