(sqlite:sqlite-get-table (sqlite-db database) sql-expression)
(sqlite:sqlite-free-table data)
(unless (= row-n 0)
- (error 'clsql-simple-warning
+ (error 'sql-warning
:format-control
"Result set not empty: ~@(~A~) row~:P, ~@(~A~) column~:P "
:format-arguments (list row-n col-n))))
(let ((raw-types (if (eq :auto result-types)
(loop for j from n-col below (* 2 n-col)
collect (ensure-keyword (sqlite:sqlite-aref col-names j)))
- result-types)))
+ result-types)))
(loop for type in raw-types
collect
(case type
- ((:int :integer :tinyint :long :bigint)
+ ((:int :integer :tinyint :long)
:int32)
+ (:bigint
+ :int64)
((:float :double)
:double)
((:numeric)