X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fclasses.lisp;fp=sql%2Fclasses.lisp;h=a829d3894cbe4aa8e0e4767d247a05071a087a6e;hb=f1ff5842ce264fbe47e8ef98e33e4aca3b71d863;hp=f33a236769d83df592eedf0835d338858bd8d96a;hpb=d62773c32c5bd4bf57a4eda31a7825a5607ec87f;p=clsql.git

diff --git a/sql/classes.lisp b/sql/classes.lisp
index f33a236..a829d38 100644
--- a/sql/classes.lisp
+++ b/sql/classes.lisp
@@ -628,6 +628,7 @@ uninclusive, and the args from that keyword to the end."
   t)
 
 (defmethod output-sql ((query sql-object-query) database)
+  (declare (ignore database))
   (with-slots (objects)
       query
     (when objects