From 9d35471958ac82f0896224ad05bbd9cf307f61b0 Mon Sep 17 00:00:00 2001
From: kilianmh <kilian.haemmerle@protonmail.com>
Date: Mon, 29 Apr 2024 23:22:21 +0200
Subject: [PATCH] Fix: avoid unused variable style warnings

Some variables are removed and some are ignored.
---
 src/core/class/column.lisp | 2 +-
 src/core/dao/mixin.lisp    | 6 +++---
 src/core/logger.lisp       | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/core/class/column.lisp b/src/core/class/column.lisp
index 9f45094..e4025f9 100644
--- a/src/core/class/column.lisp
+++ b/src/core/class/column.lisp
@@ -63,7 +63,7 @@
 (defmethod initialize-instance :around ((class table-column-class) &rest rest-initargs
                                         &key name initargs ghost
                                         &allow-other-keys)
-
+  (declare (ignore ghost))
   (unless (find (symbol-name name) initargs :test #'string=)
     ;; Add the default initarg.
     (push (intern (symbol-name name) :keyword)
diff --git a/src/core/dao/mixin.lisp b/src/core/dao/mixin.lisp
index c1d7163..692c9f0 100644
--- a/src/core/dao/mixin.lisp
+++ b/src/core/dao/mixin.lisp
@@ -115,7 +115,7 @@
                               (setf calledp t
                                     (slot-value object slot-name) foreign-object)))))))))
 
-(defun add-relational-readers (class initargs)
+(defun add-relational-readers (class)
   (loop for column in (table-direct-column-slots class)
         for col-type = (table-column-type column)
         when (and (symbolp col-type)
@@ -131,14 +131,14 @@
                                         &key conc-name &allow-other-keys)
   (let ((*conc-name* (first conc-name)))
     (let ((class (apply #'call-next-method class initargs)))
-      (add-relational-readers class initargs)
+      (add-relational-readers class)
       class)))
 
 (defmethod reinitialize-instance :around ((class dao-table-mixin) &rest initargs
                                           &key conc-name &allow-other-keys)
   (let ((*conc-name* (first conc-name)))
     (let ((class (apply #'call-next-method class initargs)))
-      (add-relational-readers class initargs)
+      (add-relational-readers class)
       class)))
 
 (defclass serial-pk-mixin ()
diff --git a/src/core/logger.lisp b/src/core/logger.lisp
index e196b15..b1cae8d 100644
--- a/src/core/logger.lisp
+++ b/src/core/logger.lisp
@@ -48,7 +48,7 @@
     (do ((frame (sb-di:frame-down (sb-di:top-frame))
                 (sb-di:frame-down frame)))
         ((null frame))
-      (multiple-value-bind (call args info)
+      (multiple-value-bind (call)
           (sb-debug::frame-call frame)
         (let ((call (normalize-call call)))
           (when (users-call-p call)