From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 30 May 2004 06:40:52 +0000 (+0000)
Subject: r9520: continue to use odbc2 semantics
X-Git-Tag: v3.8.6~352
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=48a9de835029c5db6ac83235b6794fa20d3e56d5

r9520: continue to use odbc2 semantics
---

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index ab2f6ee..b17af02 100644
--- 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 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)))