Index: 64-bit/src/odbc/odbc-ff-interface.lisp
===================================================================
--- 64-bit/src/odbc/odbc-ff-interface.lisp	(revision 64-bit,11)
+++ 64-bit/src/odbc/odbc-ff-interface.lisp	(revision 64-bit,16)
@@ -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)