r9520: continue to use odbc2 semantics

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index ab2f6ee54a1e318dda8bb0c78daf0f4a03bf105b..b17af024651a85554ea5d8ce8754fb7d83d7e4c0 100644 (file)
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -153,7 +153,7 @@ as possible second argument) to the desired representation of date/time/timestam
               ()
             (SQLAllocEnv phenv)
             (deref-pointer phenv 'sql-handle)))))
-    (%set-attr-odbc-version henv $SQL_OV_ODBC3)
+    (%set-attr-odbc-version henv $SQL_OV_ODBC2)
     henv))
 
 

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index f48d00d7dad945d90f8d502f0b3336929262589b..698b235333848e0dc6d3813fdbc4d7bd8310c808 100644 (file)
--- 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)))