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

diff --git a/db-sqlite/sqlite-api.lisp b/db-sqlite/sqlite-api.lisp
index 9866749..ad25a77 100644
--- a/db-sqlite/sqlite-api.lisp
+++ b/db-sqlite/sqlite-api.lisp
@@ -48,6 +48,7 @@
 	   #:make-null-vm
 	   #:null-row-p
 	   #:sqlite-aref
+	   #:sqlite-raw-aref
 	   #:sqlite-free-row
 	   
 	   ;;; Types.
@@ -311,6 +312,11 @@
   (convert-from-foreign-string
    (deref-array (deref-pointer a 'sqlite-row-pointer) '(:array (* :unsigned-char)) n)))
 
+(declaim (inline sqlite-raw-aref))
+(defun sqlite-raw-aref (a n)
+  (declare (type sqlite-row-pointer-type a))
+  (deref-array (deref-pointer a 'sqlite-row-pointer) '(:array (* :unsigned-char)) n))
+
 (declaim (inline sqlite-free-row))
 (defun sqlite-free-row (row)
   (declare (type sqlite-row-pointer-type row))