X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=db-sqlite%2Fsqlite-sql.lisp;h=5a902c97b024c0bb52eba959890a8076548701b2;hb=db9892632e6eb7869aea7a94c16b523a82de1501;hp=1ea5599a468753eb2acaf689c420ab96d31f6785;hpb=3e67ee0887558908069b0d1f2a72abfae3725799;p=clsql.git

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 1ea5599..5a902c9 100644
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -207,6 +207,17 @@
                  "SELECT name FROM sqlite_master WHERE type='index' UNION ALL SELECT name FROM sqlite_temp_master WHERE type='index' ORDER BY name"
                  database nil)))
 
+(defmethod database-list-table-indexes (table (database sqlite-database)
+					&key (owner nil))
+  (declare (ignore owner))
+  (mapcar #'car 
+	  (database-query
+	   (format
+	    nil
+	    "SELECT name FROM sqlite_master WHERE type='index' AND tbl_name='~A' UNION ALL SELECT name FROM sqlite_temp_master WHERE type='index' AND tbl_name='~A' ORDER BY name"
+	    table table)
+	   database nil)))
+
 (declaim (inline sqlite-table-info))
 (defun sqlite-table-info (table database)
   (database-query (format nil "PRAGMA table_info('~A')" table)