X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite%2Fsqlite-api-clisp.lisp;h=55fee0d4a84031c7413582c1087fcf03424a8f61;hp=7e57fa2f139d090a9c664676628fb4b3e2176f91;hb=7cdc9aa48baa3c52923d61da6fa632eb47ac0b5d;hpb=4d1a3100285889c84e63f8f4500dbd4b6c1f8ddc

diff --git a/db-sqlite/sqlite-api-clisp.lisp b/db-sqlite/sqlite-api-clisp.lisp
index 7e57fa2..55fee0d 100644
--- a/db-sqlite/sqlite-api-clisp.lisp
+++ b/db-sqlite/sqlite-api-clisp.lisp
@@ -32,7 +32,7 @@
 	   ;;; Core API.
            #:sqlite-open
 	   #:sqlite-close
-
+	   
 	   ;;; New API.
 	   #:sqlite-compile
 	   #:sqlite-step
@@ -50,9 +50,16 @@
 	   
 	   ;;; Macros.
 	   #:with-open-sqlite-db
-	   #:with-sqlite-vm))
+	   #:with-sqlite-vm
+
+	   ;;; Compatibility with clsql-sql-uffi.lisp
+	   #:sqlite-aref
+	   #:sqlite-free-table
+	   #:make-null-vm
+	   #:make-null-row
+	   ))
 
-(in-package :sqlite)
+(in-package #:sqlite)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;
@@ -343,6 +350,22 @@
 	     (return-from nil)
 	     (format t "~&column name = ~A, type = ~A~%"
 		     (aref cols 1) (aref cols 2))))))))
+
+;;; Compatibility with sqlite-api-uffi.lisp
+
+(defun sqlite-aref (row i)
+  (aref row i))
+
+(defun sqlite-free-table (table)
+  (declare (ignore table))
+  )
+
+(defun make-null-vm ()
+  nil)
+
+(defun make-null-row ()
+  nil)
+
 
 ;;;; Local Variables:
 ;;;; Mode: lisp