From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Tue, 23 Oct 2007 14:58:31 +0000 (-0600)
Subject: db-postgresql/postgresql-sql.lisp: Patch from Gabriele Favalessa based on
X-Git-Tag: v4.0.3~3
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=d9c752dcd0577bd1df0b16110f413bb58f42033d

db-postgresql/postgresql-sql.lisp: Patch from Gabriele Favalessa based on
Andrew Golding suggestion for more informative :error-id slot
---

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))))))))