From a417612bb22429caf7187fcaedfffe17e22bb36f Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Tue, 7 Jan 2014 15:53:02 -0500 Subject: [PATCH] Fix bug in sqlite3-table-info where it was not using database-identifiers --- db-sqlite3/sqlite3-sql.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) -- 2.34.1