From 71a7c39292eef91d732c0b98e3939032c5ae338b Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Sun, 12 Oct 2025 23:27:25 +0300 Subject: Replace my simple logging implementation with log4cl --- src/db.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/db.lisp') 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 (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 -- cgit v1.2.3