Index: 64-bit/src/odbc/parameter.lisp
===================================================================
--- 64-bit/src/odbc/parameter.lisp	(revision 64-bit,1)
+++ 64-bit/src/odbc/parameter.lisp	(revision 64-bit,3)
@@ -54,7 +54,8 @@
       param)))
 
+;;;; dso: not so sure about this one and its callers
 (defun bind-parameter (hstmt pos param)
   (setf (slot-value param 'ind-ptr) 
-          (cffi:foreign-alloc :long))
+        (cffi:foreign-alloc 'sql-len))
   (%sql-bind-parameter 
    hstmt
@@ -175,5 +176,5 @@
     (setf parameter-type $SQL_INTEGER)
     (setf buffer-length 4)
-    (setf value-ptr (cffi:foreign-alloc :long))))
+    (setf value-ptr (cffi:foreign-alloc 'sql-integer))))
 
 (defmethod set-parameter-value ((param integer-parameter) value)
@@ -324,5 +325,5 @@
     ;; we store the position there
     (setf buffer-length 4)
-    (setf value-ptr (cffi:foreign-alloc :long))))
+    (setf value-ptr (cffi:foreign-alloc 'sql-len))))
 
 (defmethod set-parameter-value ((param clob-parameter) value)
@@ -374,5 +375,5 @@
     ;; we store the position there
     (setf buffer-length 4)
-    (setf value-ptr (cffi:foreign-alloc :long))))
+    (setf value-ptr (cffi:foreign-alloc 'sql-len))))
 
 (defmethod set-parameter-value ((param uclob-parameter) value)
@@ -423,5 +424,5 @@
     ;; we store the position there
     (setf buffer-length 4)
-    (setf value-ptr (cffi:foreign-alloc :long))))
+    (setf value-ptr (cffi:foreign-alloc 'sql-len))))
 
 (defmethod set-parameter-value ((param blob-parameter) value)