projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11761: 20 Jul 2007 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 8950686f4fee2400bb22ae475e5f61dbfcc0eecf..8b433be2ba60b4033d6b18333f6619c32d1e204c 100644
(file)
--- a/
db-sqlite3/sqlite3-sql.lisp
+++ b/
db-sqlite3/sqlite3-sql.lisp
@@
-181,8
+181,8
@@
(setf (sqlite3-result-set-n-col result-set) 0))
(sqlite3:sqlite3-error (err)
(error 'sql-database-error
(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))))
t))))