Changeset unicode,5.1.1 for unicode/src/odbc/odbc-main.lisp

Timestamp:

02/19/2008 08:12:24 PM (18 years ago)

Author:

raverkamp

revision id:

svn-v3-trunk1:1c22b0a8-4d0b-0410-a296-af6a2e6f35e3:plain-odbc%2Ftrunk:11

Message:

fixed lob parameter handling, fixed tests so they run with sbcl

File:

• unicode/src/odbc/odbc-main.lisp (modified) (2 diffs)

unicode/src/odbc/odbc-main.lisp

@@ -467 +467 @@
 ;; this functions works only, since we store at value-ptr the position
 ;; of the parameter
-;; dso--
 (defun sql-param-data-position (hstmt)
   (with-temporary-allocations
@@ -474 +473 @@
                    (%sql-param-data hstmt ptr))))
       (values res (if (= res $SQL_NEED_DATA)
-                      (cffi:mem-ref (cffi:mem-ref ptr :pointer) :int32))))))
-                                        ; TODO: The :int32 above
-                                        ; should probably be changed!
+                      (cffi:mem-ref (cffi:mem-ref ptr :pointer) :long))))))
+
+
 
 (defmethod exec-prepared-query ((query prepared-statement) &rest parameters)