X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite%2Fsqlite-api-uffi.lisp;h=98667493ad0c94c581019abcfb65b9bc7f9f208a;hp=39f064a59d791916b487f947e5f246c2fbf0f993;hb=f1ff5842ce264fbe47e8ef98e33e4aca3b71d863;hpb=d62773c32c5bd4bf57a4eda31a7825a5607ec87f

diff --git a/db-sqlite/sqlite-api-uffi.lisp b/db-sqlite/sqlite-api-uffi.lisp
index 39f064a..9866749 100644
--- a/db-sqlite/sqlite-api-uffi.lisp
+++ b/db-sqlite/sqlite-api-uffi.lisp
@@ -2,10 +2,10 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:          sqlite-api-uffi.lisp
-;;;; Purpose:       Low-level SQLite interface using UFFI
-;;;; Programmers:   Aurelio Bignoli and Kevin Rosenberg
-;;;; Date Started:  Nov 2003
+;;;; Name:     sqlite-api-uffi.lisp
+;;;; Purpose:  Low-level SQLite interface using UFFI
+;;;; Authors:  Aurelio Bignoli and Kevin Rosenberg
+;;;; Created:  Nov 2003
 ;;;;
 ;;;; $Id$
 ;;;;
@@ -98,7 +98,7 @@
 (def-foreign-type sqlite-db :pointer-void)
 (def-foreign-type sqlite-vm :pointer-void)
 (def-foreign-type string-pointer (* (* :unsigned-char)))
-(def-foreign-type sqlite-row-pointer (* string-pointer))
+(def-foreign-type sqlite-row-pointer (* (* :unsigned-char)))
 
 (defvar +null-errmsg-pointer+ (make-null-pointer 'errmsg))
 (defvar +null-string-pointer-pointer+ (make-null-pointer 'string-pointer))