From: Kevin M. Rosenberg Date: Mon, 12 Jul 2004 22:28:07 +0000 (+0000) Subject: r9757: Fix condition in sqlite-sql X-Git-Tag: v3.8.6~280 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=467d30bc300d46b200e938a30e948afaca5b9b72 r9757: Fix condition in sqlite-sql --- diff --git a/ChangeLog b/ChangeLog index a425d88..1c7215c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +12 Jul 2004 Kevin Rosenberg + * db-sqlite/sqlite-sql.lisp: Fix condition as reported by Aurelio Bignoli. + 11 Jul 2004 Kevin Rosenberg * 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 3165e80..3ea54f6 100644 --- 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)