From d9c752dcd0577bd1df0b16110f413bb58f42033d Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Tue, 23 Oct 2007 08:58:31 -0600 Subject: [PATCH] db-postgresql/postgresql-sql.lisp: Patch from Gabriele Favalessa based on Andrew Golding suggestion for more informative :error-id slot --- db-postgresql/postgresql-sql.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp index de6daf5..b0c6f81 100644 --- a/db-postgresql/postgresql-sql.lisp +++ b/db-postgresql/postgresql-sql.lisp @@ -187,7 +187,7 @@ (error 'sql-database-data-error :database database :expression query-expression - :error-id (PQresultStatus result) + :error-id (PQresultErrorField result +PG-DIAG-SQLSTATE+) :message (tidy-error-message (PQresultErrorMessage result))))) (PQclear result)))))) @@ -269,7 +269,7 @@ (error 'sql-database-data-error :database database :expression query-expression - :error-id (PQresultStatus result) + :error-id (PQresultErrorField result +PG-DIAG-SQLSTATE+) :message (tidy-error-message (PQresultErrorMessage result))) (PQclear result)))))))) -- 2.11.4.GIT