projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Depend on UFFI version 2.x
[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))
(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
(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)
(declaim (inline sqlite-raw-aref))
(defun sqlite-raw-aref (a n)