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 17e8ff81dbf70dfac2a521060abcccf224f4b1e1..542036fca62282dbdb1030856d49bad827c7d3d3 100644 (file)
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -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)