(def-foreign-type sql-handle :pointer-void)
(def-foreign-type sql-handle-ptr '(* sql-handle))
(def-foreign-type string-ptr '(* :unsigned-char))
-(def-type long-ptr-type '(* :int))
+(def-type long-ptr-type '(* #.$ODBC-LONG-TYPE))
(def-function "SQLAllocEnv"
(cbColNameMax :short) ; SWORD cbColNameMax
(*pcbColName (* :short)) ; SWORD FAR *pcbColName
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
- (*pcbColDef (* :unsigned-int)) ; UDWORD FAR *pcbColDef
+ (*pcbColDef (* #.$ODBC-ULONG-TYPE)) ; UDWORD FAR *pcbColDef
(*pibScale (* :short)) ; SWORD FAR *pibScale
(*pfNullable (* :short)) ; SWORD FAR *pfNullable
)