Changeset combined,7.1.1 for combined/src/odbc/ffi-support.lisp

Timestamp:

08/06/2008 03:15:04 AM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

cffi

revision id:

dsowen@fugue88.ws-20080806031504-lbax9ukub5ec1i2o

Message:

Initial hack for CFFI 0.10

File:

• combined/src/odbc/ffi-support.lisp (modified) (1 diff)

combined/src/odbc/ffi-support.lisp

@@ -5 +5 @@
 
 (defun get-string (ptr length) 
-  (cffi:foreign-string-to-lisp ptr length nil)
-  )
+  (cffi:foreign-string-to-lisp ptr :count length))
 
 (defun get-string-nts (ptr)
-  (cffi:foreign-string-to-lisp ptr MOST-POSITIVE-FIXNUM t))
+  (cffi:foreign-string-to-lisp ptr :max-chars MOST-POSITIVE-FIXNUM))
 
 (defun put-string (ptr vector)