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

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))