projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0a2015b
)
Fix bug in sqlite3-table-info where it was not using database-identifiers
author
Russ Tyndall
<russ@acceleration.net>
Tue, 7 Jan 2014 20:53:02 +0000
(15:53 -0500)
committer
Russ Tyndall
<russ@acceleration.net>
Tue, 7 Jan 2014 20:53:02 +0000
(15:53 -0500)
db-sqlite3/sqlite3-sql.lisp
patch
|
blob
|
history
diff --git
a/db-sqlite3/sqlite3-sql.lisp
b/db-sqlite3/sqlite3-sql.lisp
index 7b16b48b50319c967d4bc4876c96e327e61a8071..d4b41e4d8d6ea7344eb74be43c150c470ffc2d93 100644
(file)
--- 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)
(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))
(defmethod database-list-attributes (table (database sqlite3-database)
&key (owner nil))