projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 4.3.3 release
[clsql.git]
/
db-postgresql
/
postgresql-sql.lisp
diff --git
a/db-postgresql/postgresql-sql.lisp
b/db-postgresql/postgresql-sql.lisp
index de6daf53c586d2f5c6ee44638e155660483a6c7f..b0c6f81c0947dda7cde164aaa3198c803104ee0e 100644
(file)
--- 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 'sql-database-data-error
:database database
:expression query-expression
- :error-id (PQresult
Status result
)
+ :error-id (PQresult
ErrorField result +PG-DIAG-SQLSTATE+
)
:message (tidy-error-message
(PQresultErrorMessage result)))))
(PQclear result))))))
:message (tidy-error-message
(PQresultErrorMessage result)))))
(PQclear result))))))
@@
-269,7
+269,7
@@
(error 'sql-database-data-error
:database database
:expression query-expression
(error 'sql-database-data-error
:database database
:expression query-expression
- :error-id (PQresult
Status result
)
+ :error-id (PQresult
ErrorField result +PG-DIAG-SQLSTATE+
)
:message (tidy-error-message
(PQresultErrorMessage result)))
(PQclear result))))))))
:message (tidy-error-message
(PQresultErrorMessage result)))
(PQclear result))))))))