projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9457: Reworked CLSQL file structure.
[clsql.git]
/
db-sqlite
/
sqlite-sql.lisp
diff --git
a/db-sqlite/sqlite-sql.lisp
b/db-sqlite/sqlite-sql.lisp
index 3c6d31ea7e70d46e44e7e912c98afdfa706d29eb..17e8ff81dbf70dfac2a521060abcccf224f4b1e1 100644
(file)
--- 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)
(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))))
:format-control
"Result set not empty: ~@(~A~) row~:P, ~@(~A~) column~:P "
:format-arguments (list row-n col-n))))