Changeset combined,10

Timestamp:

08/06/2008 03:20:01 AM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

combined

parents:

Rev	Tree	Chgset
9	@combined,9	[combined,9]
7.1.1	@combined,7.1.1	[combined,7.1.1]

revision id:

dsowen@fugue88.ws-20080806032001-91bl2a95i2brl9s5

Message:

Merged from cffi

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)