Further internationalization.

[clsql.git] / db-sqlite / sqlite-api.lisp

diff --git a/db-sqlite/sqlite-api.lisp b/db-sqlite/sqlite-api.lisp
index 6e06a159b505e589e72b1e98b1ec1f8293acc0c2..b25653f449de17592ed5173d956ccc73be92b2ff 100644 (file)
--- 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)