projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9289: Added new operations for the sql syntax.
[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
;;; Core API.
#:sqlite-open
#:sqlite-close
-
+
;;; New API.
#:sqlite-compile
#:sqlite-step
;;; New API.
#:sqlite-compile
#:sqlite-step
@@
-50,9
+50,16
@@
;;; Macros.
#:with-open-sqlite-db
;;; 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))))))))
(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
\f
;;;; Local Variables:
;;;; Mode: lisp