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