r10083: Automated commit for Debian build of clsql upstream-version-3.0.8

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

diff --git a/db-sqlite/sqlite-api.lisp b/db-sqlite/sqlite-api.lisp
index 98667493ad0c94c581019abcfb65b9bc7f9f208a..ad25a77c991b1b874ed004a4f5615d6c3df82a2a 100644 (file)
--- 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))