r9359: Fixes for PRINT-QUERY and sql concatenation operator (||).

[clsql.git] / sql / classes.lisp

diff --git a/sql/classes.lisp b/sql/classes.lisp
index f33a236769d83df592eedf0835d338858bd8d96a..a829d3894cbe4aa8e0e4767d247a05071a087a6e 100644 (file)
--- 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