From 74cabeb6f58c5adbc39b8d6cd003098795c3e918 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Fri, 22 Nov 2013 10:55:38 +0100
Subject: [PATCH] Change MySQL list-tables function not to include views.

---
 src/sources/mysql-schema.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/sources/mysql-schema.lisp b/src/sources/mysql-schema.lisp
index 374ebb0..3e68131 100644
--- a/src/sources/mysql-schema.lisp
+++ b/src/sources/mysql-schema.lisp
@@ -70,7 +70,13 @@
        (progn
 	 (cl-mysql:use dbname)
 	 ;; that returns a pretty weird format, process it
-	 (mapcan #'identity (caar (cl-mysql:list-tables))))
+	 (loop for (table-name)
+	    in (caar (cl-mysql:query (format nil "
+  select table_name
+    from information_schema.tables
+   where table_schema = '~a' and table_type = 'BASE TABLE'
+order by table_name" dbname)))
+	    collect table-name))
     ;; free resources
     (cl-mysql:disconnect)))