X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-mysql%2Fmysql-usql.lisp;fp=db-mysql%2Fmysql-usql.lisp;h=e14d31fab80ef8c75dfcc5fff6f74ab26ed90184;hb=b69ed367889def50db1931ab33fa9bd9a35986ab;hp=8b198e0c6f13cea8b583d011c583caee1028f188;hpb=f79d7e4103bd4ab6621e05f05c2b7c4a99ba9520;p=clsql.git

diff --git a/db-mysql/mysql-usql.lisp b/db-mysql/mysql-usql.lisp
index 8b198e0..e14d31f 100644
--- a/db-mysql/mysql-usql.lisp
+++ b/db-mysql/mysql-usql.lisp
@@ -31,7 +31,7 @@
 ;; MySQL 4.1 does not support views 
 (defmethod database-list-views ((database mysql-database)
                                 &key (owner nil))
-  (declare (ignore owner database))
+  (declare (ignore owner))
   nil)
 
 (defmethod database-list-indexes ((database mysql-database)
@@ -119,7 +119,7 @@
   (mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database)))
 
 (defmethod database-sequence-last (sequence-name (database mysql-database))
-  (declare (ignore sequence-name database)))
+  (declare (ignore sequence-name)))
 
 ;; Misc USQL functions