Changeset vendor,8 for vendor/src/odbc/parameter.lisp

Timestamp:

08/23/2008 11:23:53 AM (18 years ago)

Author:

raverkamp

revision id:

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

Message:

support for CFFI-0.10 and 0.9.2
dummy test for postgresql integrated
moved string handling to ffi-support
sql-server tests work, nothing else (driver<->clisp interaction problems?)

File:

• vendor/src/odbc/parameter.lisp (modified) (1 diff)

vendor/src/odbc/parameter.lisp

@@ -114 +114 @@
      (put-string (slot-value param 'value-ptr) ""))
     (t
-     (cffi:lisp-string-to-foreign value
-                                  (slot-value param 'value-ptr)
-                                  (1+ (length value)))
+     (put-string (slot-value param 'value-ptr) value)
      (setf (cffi:mem-ref (slot-value param 'ind-ptr) 'sql-len)
            (length value)))))