1 files changed, 7 insertions, 6 deletions

diff --git a/src/db.lisp b/src/db.lisp
index 9b646d2..5d08e6a 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -1,7 +1,8 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/db
-  (:use :c2cl :sqlite :ukkoclot/log)
+  (:use :c2cl :sqlite)
+  (:import-from :log)
   (:export :get-inline-bot-type :set-inline-bot-type :with-db))
 (in-package :ukkoclot/db)
 
@@ -39,24 +40,24 @@
     (unless current-ver
       (setf current-ver 0))
     (cond
-      ((= current-ver +target-version+) (log-info "Database is up to date"))
+      ((= current-ver +target-version+) (log:info "Database is up to date"))
 
       ((> current-ver +target-version+)
-       (log-error "Database has a higher version than supported?")
+       (log:error "Database has a higher version than supported?")
        (error "Corrupted Database"))
 
       (t
-       (log-info "Updating database from version ~A to ~A" current-ver +target-version+)
+       (log:info "Updating database from version ~A to ~A" current-ver +target-version+)
        (loop while (< current-ver +target-version+)
              do (with-transaction db
-                  (log-info "Updating database step from ~A" current-ver)
+                  (log:info "Updating database step from ~A" current-ver)
                   (incf current-ver)
                   (upgrade-step db current-ver)
                   (execute-non-query
                    db
                    "INSERT OR REPLACE INTO version(id, version) VALUES (0, ?)"
                    current-ver)))
-       (log-info "Database updating complete :)")))))
+       (log:info "Database updating complete :)")))))
 
 (defun upgrade-step (db new-version)
   (case new-version