;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
;; MA 02111-1307 USA
-;; $Id: sqlite.lisp,v 1.4 2003/11/28 21:02:43 aurelio Exp $
+;; $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
;;; Core API.
#:sqlite-open
#:sqlite-close
-
+
;;; New API.
#:sqlite-compile
#:sqlite-step
;;; 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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
(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
;;;; Syntax: ANSI-Common-Lisp
;;;; Package: sqlite
-;;;; End:
\ No newline at end of file
+;;;; End: