X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-sqlite%2Fsqlite-sql.lisp;h=542036fca62282dbdb1030856d49bad827c7d3d3;hb=645d2ea7396466b8673e3421b55e45cd327f0195;hp=17e8ff81dbf70dfac2a521060abcccf224f4b1e1;hpb=e622ee6f4bf2b9fe81af59d566e651c983a4833b;p=clsql.git

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 17e8ff8..542036f 100644
--- 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)