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

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