projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8811: add support for usql backend, integrate Marcus Pearce <ek735@soi.city.ac.uk...
[clsql.git]
/
db-sqlite
/
sqlite-sql.lisp
diff --git
a/db-sqlite/sqlite-sql.lisp
b/db-sqlite/sqlite-sql.lisp
index 78068fbf7089750e3f8833c5701cefafddb92ef5..a2526ed911e0bc01cede8691d3bb2dc393a925c9 100644
(file)
--- a/
db-sqlite/sqlite-sql.lisp
+++ b/
db-sqlite/sqlite-sql.lisp
@@
-1,4
+1,4
@@
-;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;
;
-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
@@
-23,6
+23,9
@@
(defclass sqlite-database (database)
((sqlite-db :initarg :sqlite-db :accessor sqlite-db)))
(defclass sqlite-database (database)
((sqlite-db :initarg :sqlite-db :accessor sqlite-db)))
+(defmethod database-type ((database sqlite-database))
+ :sqlite)
+
(defmethod database-initialize-database-type ((database-type (eql :sqlite)))
t)
(defmethod database-initialize-database-type ((database-type (eql :sqlite)))
t)