r9757: Fix condition in sqlite-sql

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

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 3165e80f939bcfaf5d3b54f869e0b878675114d0..3ea54f624e51b23fa3580ded1681525bb34806a2 100644 (file)
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -131,7 +131,7 @@
                (values result-set n-col nil)
                (values result-set n-col)))))
     (sqlite:sqlite-error (err)
-      (error 'sql-database-error
+      (error 'sql-database-data-error
             :database database
             :expression query-expression
             :error-id (sqlite:sqlite-error-code err)