X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite3%2Fsqlite3-sql.lisp;h=8b433be2ba60b4033d6b18333f6619c32d1e204c;hp=0d6bf70e0432eb24c3a344062c7ecc5530760d86;hb=bfe651c3fa71cb75476806f2d930a10be889fcac;hpb=f7ffd9617ac7b70d330add3ad409128a9dec266f

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 0d6bf70..8b433be 100644
--- a/db-sqlite3/sqlite3-sql.lisp
+++ b/db-sqlite3/sqlite3-sql.lisp
@@ -103,7 +103,8 @@
 			(t :string))))
       (loop for type in result-types
 	    collect (case type
-		      ((:int :integer :tinyint :long) :int32)
+		      ((:int :integer :tinyint) :int32)
+		      (:long #+(or x86-64 64bit) :int64 #-(or x86-64 64bit) :int32)
 		      (:bigint :int64)
 		      ((:float :double) :double)
 		      ((:numeric) :number)
@@ -180,8 +181,8 @@
 		(setf (sqlite3-result-set-n-col result-set) 0))
 	    (sqlite3:sqlite3-error (err)
 	      (error 'sql-database-error
-		     :message "Error in sqlite3-step: ~A"
-		     (sqlite3:sqlite3-error-message err))))
+		     :message (format nil "Error in sqlite3-step: ~A"
+                                      (sqlite3:sqlite3-error-message err)))))
 	  t))))