r11326: 30 Nov 2006 Kevin Rosenberg <kevin@rosenberg.net>

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

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 0d6bf70e0432eb24c3a344062c7ecc5530760d86..8b433be2ba60b4033d6b18333f6619c32d1e204c 100644 (file)
--- 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))))