From 48a9de835029c5db6ac83235b6794fa20d3e56d5 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 30 May 2004 06:40:52 +0000
Subject: [PATCH] r9520: continue to use odbc2 semantics

---
 db-odbc/odbc-api.lisp | 2 +-
 sql/db-interface.lisp | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

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)))
-- 
2.34.1