X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite%2Fsqlite-api-clisp.lisp;h=55fee0d4a84031c7413582c1087fcf03424a8f61;hp=a8c18ffe5b72f2b1fbee2ca659fe20369661d630;hb=333e8280f2f3438ffd379349bc9746c34cccc159;hpb=73cf858d596ad1d51c745b478292433617cf9d72

diff --git a/db-sqlite/sqlite-api-clisp.lisp b/db-sqlite/sqlite-api-clisp.lisp
index a8c18ff..55fee0d 100644
--- a/db-sqlite/sqlite-api-clisp.lisp
+++ b/db-sqlite/sqlite-api-clisp.lisp
@@ -19,10 +19,10 @@
 
 ;; $Id$
 
-(in-package :cl-user)
+(in-package #:cl-user)
 
-(defpackage :sqlite
-  (:use :common-lisp :ffi)
+(defpackage #:sqlite
+  (:use #:common-lisp #:ffi)
   (:export
            ;;; Conditions
            #:sqlite-error
@@ -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,9 +350,25 @@
 	     (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
 ;;;; Syntax: ANSI-Common-Lisp
 ;;;; Package: sqlite
-;;;; End:
\ No newline at end of file
+;;;; End: