X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite%2Fsqlite-api.lisp;h=b25653f449de17592ed5173d956ccc73be92b2ff;hp=6e06a159b505e589e72b1e98b1ec1f8293acc0c2;hb=fe6d36c16c61c855fc3b0c0c7c07f3cf3de4241d;hpb=d01eae29d96b37219607a12fa21f49ec3a2b4a47

diff --git a/db-sqlite/sqlite-api.lisp b/db-sqlite/sqlite-api.lisp
index 6e06a15..b25653f 100644
--- a/db-sqlite/sqlite-api.lisp
+++ b/db-sqlite/sqlite-api.lisp
@@ -305,10 +305,11 @@
   (null-pointer-p row))
 
 (declaim (inline sqlite-aref))
-(defun sqlite-aref (a n)
+(defun sqlite-aref (a n encoding)
   (declare (type sqlite-row-pointer-type a))
   (convert-from-foreign-string
-   (deref-array (deref-pointer a 'sqlite-row-pointer) '(:array (* :unsigned-char)) n)))
+   (deref-array (deref-pointer a 'sqlite-row-pointer) '(:array (* :unsigned-char)) n)
+   :encoding encoding))
 
 (declaim (inline sqlite-raw-aref))
 (defun sqlite-raw-aref (a n)