r9189: implement result-types for sqlite

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

diff --git a/db-sqlite/sqlite-api-clisp.lisp b/db-sqlite/sqlite-api-clisp.lisp
index 7e57fa2f139d090a9c664676628fb4b3e2176f91..55fee0d4a84031c7413582c1087fcf03424a8f61 100644 (file)
--- 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)
+
 \f
 ;;;; Local Variables:
 ;;;; Mode: lisp