r9757: Fix condition in sqlite-sql

diff --git a/ChangeLog b/ChangeLog
index a425d8821fa291cdd0f7e5edc0296edfb1d88792..1c7215cb0229b574ac1b1af322ad30bf4afecaa1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+12 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
+       * db-sqlite/sqlite-sql.lisp: Fix condition as reported by Aurelio Bignoli.
+
 11 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
        * sql/oodml.lisp, sql/package.lisp, doc/ref-ooddl.lisp, db-mysql/mysql-objects.lisp: Add tinyint type
        

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)