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
 ;;;;
@@ -23,6 +23,9 @@
 (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)