r9482: * doc/TODO: Add AUTOCOMMIT. Remove need for large table and bigint

[clsql.git] / db-sqlite / sqlite-sql.lisp

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 3c6d31ea7e70d46e44e7e912c98afdfa706d29eb..542036fca62282dbdb1030856d49bad827c7d3d3 100644 (file)
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -62,7 +62,7 @@
          (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))))
@@ -145,12 +145,14 @@
     (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)