(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)
(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))))