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

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