(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))
(database sqlite3-database)
&key (owner nil))
(declare (ignore owner))
-
+
(loop for field-info in (sqlite3-table-info table database)
- when (string= attribute (second field-info))
+ when (string= (clsql-sys::unescaped-database-identifier attribute)
+ (second field-info))
return
(let* ((raw-type (third field-info))
(start-length (position #\( raw-type))