X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-odbc.lisp;h=eb3430f4b4d44dea933f031ba790bea31f729a2d;hp=5d82fdd38b81c4e0ed66a07d2a4c3d5d8146c590;hb=a33175f8396cc948094ba4a2ea3a54fec3e11066;hpb=d26852b9bdb96f415c6dfc20552a1d35b51473f6

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index 5d82fdd..eb3430f 100644
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -27,6 +27,7 @@
 
 (defmethod initialize-instance :after ((db generic-odbc-database)
                                         &rest all-keys)
+  (declare (ignore all-keys))
   (unless (slot-boundp db 'dbi-package)
     (error "dbi-package not specified."))
   (let ((pkg (slot-value db 'dbi-package)))