From: Russ Tyndall <russ@acceleration.net>
Date: Tue, 7 Jan 2014 20:53:02 +0000 (-0500)
Subject: Fix bug in sqlite3-table-info where it was not using database-identifiers
X-Git-Tag: v6.5.0~12
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=a417612bb22429caf7187fcaedfffe17e22bb36f

Fix bug in sqlite3-table-info where it was not using database-identifiers
---

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 7b16b48..d4b41e4 100644
--- a/db-sqlite3/sqlite3-sql.lisp
+++ b/db-sqlite3/sqlite3-sql.lisp
@@ -270,8 +270,9 @@
 
 (declaim (inline sqlite3-table-info))
 (defun sqlite3-table-info (table database)
-  (database-query (format nil "PRAGMA table_info('~A')" table)
-                  database nil nil))
+  (let ((sql (format nil "PRAGMA table_info('~A')"
+                     (clsql-sys::unescaped-database-identifier table))))
+    (database-query sql database nil nil)))
 
 (defmethod database-list-attributes (table (database sqlite3-database)
                                            &key (owner nil))