r8826: allegro improvement

[clsql.git] / db-mysql / mysql-usql.lisp

diff --git a/db-mysql/mysql-usql.lisp b/db-mysql/mysql-usql.lisp
index 8b198e0c6f13cea8b583d011c583caee1028f188..e14d31fab80ef8c75dfcc5fff6f74ab26ed90184 100644 (file)
--- 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