X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=698b235333848e0dc6d3813fdbc4d7bd8310c808;hb=dea46c447f6688f1519a6fbe7f5998d0eab7474c;hp=f48d00d7dad945d90f8d502f0b3336929262589b;hpb=44cd3f817f6f59ffe495db4cf2b9ea4637a57f75;p=clsql.git

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index f48d00d..698b235 100644
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -330,11 +330,11 @@ of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
 ;; Prepared statements
 
 (defgeneric database-prepare (stmt types database result-types field-names)
-  (:method (stmt types (database t))
-    (declare (ignore stmt types))
+  (:method (stmt types (database t) result-types field-names)
+    (declare (ignore stmt types result-types field-names))
     (signal-no-database-error database))
-  (:method (stmt types (database database))
-    (declare (ignore stmt types))
+  (:method (stmt types (database database) result-types field-names)
+    (declare (ignore stmt types result-types field-names))
     (error 'sql-database-error
 	   :message
 	   (format nil "DATABASE-PREPARE not implemented for ~S" database)))