r9329: * db-odbc/*.lisp: Add a layer of indirection to foreign-type

[clsql.git] / db-odbc / odbc-constants.lisp

diff --git a/db-odbc/odbc-constants.lisp b/db-odbc/odbc-constants.lisp
index cddb4be8288d1377c6a8d375440cabb108185ca5..5ca1f2ac860114cd66378a702bff6edffa38ebae 100644 (file)
--- a/db-odbc/odbc-constants.lisp
+++ b/db-odbc/odbc-constants.lisp
@@ -18,6 +18,10 @@
 
 (in-package #:odbc)
 
+;; 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