X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-sqlite%2Fsqlite-sql.lisp;h=a2526ed911e0bc01cede8691d3bb2dc393a925c9;hb=43ec897ec7d84892fa59cc9b7858ce23d64a8a1a;hp=78068fbf7089750e3f8833c5701cefafddb92ef5;hpb=fd3c9c9f21ff40904bf27eb7a797bbd6c2d80630;p=clsql.git

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 78068fb..a2526ed 100644
--- 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)