Index: combined/src/odbc/odbc-ff-interface.lisp
===================================================================
--- combined/src/odbc/odbc-ff-interface.lisp	(revision combined,2.1.11)
+++ 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)
Index: combined/src/odbc/odbc-functions.lisp
===================================================================
--- combined/src/odbc/odbc-functions.lisp	(revision combined,2.1.13)
+++ combined/src/odbc/odbc-functions.lisp	(revision combined,2.1.14)
@@ -69,5 +69,6 @@
        (error-code (cffi:foreign-alloc 'sql-integer))
        (msg-length (cffi:foreign-alloc 'sql-small-int)))
-    (SQLError henv hdbc hstmt sql-state error-code
+    (SQLError (or henv (null-pointer)) (or hdbc (null-pointer))
+              (or hstmt (null-pointer)) sql-state error-code
               error-message $SQL_MAX_MESSAGE_LENGTH msg-length)
     (get-string sql-state 5)          ;(%cstring-to-keyword sql-state)
Index: combined/src/odbc/parameter.lisp
===================================================================
--- combined/src/odbc/parameter.lisp	(revision combined,2.1.11)
+++ combined/src/odbc/parameter.lisp	(revision combined,2.1.14)
@@ -334,5 +334,5 @@
       (progn
         (setf (slot-value param 'temp-val) value)
-        (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer)
+        (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer-as-int)
               (slot-value param 'position))
         (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
@@ -384,5 +384,5 @@
     (progn
       (setf (slot-value param 'temp-val) value)
-      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer)
+      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer-as-int)
               (slot-value param 'position))
       (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
@@ -434,5 +434,5 @@
     (progn
       (setf (slot-value param 'temp-val) value)
-      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer)
+      (setf (cffi:mem-ref (slot-value param 'value-ptr) 'sql-pointer-as-int)
               (slot-value param 'position))
       (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)