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

diff --git a/db-odbc/odbc-constants.lisp b/db-odbc/odbc-constants.lisp
index cddb4be..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.
@@ -18,7 +18,11 @@
 
 (in-package #:odbc)
 
-(defconstant $ODBCVER	#x0210)
+;; on SuSE AMD64 9.0, unixODBC is compiled with with SQLLEN being 4 bytes long
+(defconstant $ODBC-LONG-TYPE :int)
+(defconstant $ODBC-ULONG-TYPE :unsigned-int)
+
+;; (defconstant $ODBCVER	#x0210)
 
 ;; generally useful constants
 (defconstant $SQL_SPEC_MAJOR 2)		;; Major version of specification 
@@ -798,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)