Index: combined/src/odbc/odbc-ff-interface.lisp
===================================================================
--- combined/src/odbc/odbc-ff-interface.lisp	(revision combined,2.1.9)
+++ combined/src/odbc/odbc-ff-interface.lisp	(revision combined,2.1.14)
@@ -32,4 +32,10 @@
 (defctype sql-u-len sql-u-integer)
 (defctype sql-return sql-small-int)
+(defctype sql-pointer-as-int
+    #.(ecase (foreign-type-size :pointer)
+        (1 :int8)
+        (2 :int16)
+        (4 :int32)
+        (8 :int64)))
 
 (defctype *sql-small-int :pointer)