From 467d30bc300d46b200e938a30e948afaca5b9b72 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 12 Jul 2004 22:28:07 +0000 Subject: [PATCH] r9757: Fix condition in sqlite-sql --- ChangeLog | 3 +++ db-sqlite/sqlite-sql.lisp | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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) -- 2.34.1