r9522: * sql/odbc-api.lisp: Update to using ODBC V3 protocol

[clsql.git] / sql / generic-odbc.lisp

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index 8601ed624fe019a9a26a7bf243fbb26b7a22e49c..06338ae605013a9fec962504f8deb7d3f65b7f19 100644 (file)
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id: $
+;;;; $Id$
 ;;;;
 ;;;; Generic ODBC layer, used by db-odbc and db-aodbc backends
 ;;;;
@@ -67,6 +67,7 @@
               query-expression :db (odbc-conn database)
               :result-types result-types
               :column-names field-names)
+    #+ignore
     (error ()
       (error 'sql-database-data-error
             :database database
@@ -178,8 +179,6 @@
     (loop for row in rows
        collect (fourth row))))
 
-
-
 (defmethod database-attribute-type ((attribute string) (table string) (database generic-odbc-database)
                                    &key (owner nil))
   (declare (ignore owner))