X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-constants.lisp;h=c16e2a76869201da13e5b15add9ea95147fdc129;hb=44cd3f817f6f59ffe495db4cf2b9ea4637a57f75;hp=5ca1f2ac860114cd66378a702bff6edffa38ebae;hpb=a6576bcf62dd1e710085ec74089d0730d599001b;p=clsql.git

diff --git a/db-odbc/odbc-constants.lisp b/db-odbc/odbc-constants.lisp
index 5ca1f2a..c16e2a7 100644
--- a/db-odbc/odbc-constants.lisp
+++ b/db-odbc/odbc-constants.lisp
@@ -6,7 +6,7 @@
 ;;;; Purpose:  Constants for UFFI interface to ODBC
 ;;;; Authors:  Kevin M. Rosenberg and Paul Meurer
 ;;;;
-;;;; $Id: odbc-package.lisp 7061 2003-09-07 06:34:45Z kevin $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
 ;;;; and Copyright (C) Paul Meurer 1999 - 2001. All rights reserved.
@@ -22,7 +22,7 @@
 (defconstant $ODBC-LONG-TYPE :int)
 (defconstant $ODBC-ULONG-TYPE :unsigned-int)
 
-(defconstant $ODBCVER	#x0210)
+;; (defconstant $ODBCVER	#x0210)
 
 ;; generally useful constants
 (defconstant $SQL_SPEC_MAJOR 2)		;; Major version of specification 
@@ -802,7 +802,6 @@
 
 (defconstant $SQL_POSITION 0) ;; 1.0 FALSE
 (defconstant $SQL_REFRESH 1)  ;; 1.0 TRUE
-; #if (ODBCVER >= #x0200))
 (defconstant $SQL_UPDATE 2)
 (defconstant $SQL_DELETE 3)
 (defconstant $SQL_ADD 4)