From 62dbd27811c4141f0a0c357f11e5b5968e10aaa6 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 13 May 2004 08:07:27 +0000 Subject: [PATCH] r9338: fix database-query calls --- db-aodbc/aodbc-sql.lisp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/db-aodbc/aodbc-sql.lisp b/db-aodbc/aodbc-sql.lisp index 1fb81f8..f357e59 100644 --- a/db-aodbc/aodbc-sql.lisp +++ b/db-aodbc/aodbc-sql.lisp @@ -30,9 +30,6 @@ (when (find-package :dbi) (clsql-sys:database-type-load-foreign :aodbc)) -(defmethod database-initialize-database-type ((database-type (eql :aodbc))) - t) - ;; AODBC interface @@ -261,8 +258,7 @@ (car (database-query (concatenate 'string "SELECT last_value,is_called FROM " table-name) - database - :auto)))) + database :auto nil)))) (cond ((char-equal (schar (second tuple) 0) #\f) (database-execute-command @@ -281,8 +277,7 @@ (caar (database-query (concatenate 'string "SELECT last_value FROM " (%sequence-name-to-table sequence-name)) - database - :auto)))) + database :auto nil)))) (defmethod database-create (connection-spec (type (eql :aodbc))) (warn "Not implemented.")) -- 2.34.1