projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11228: * db-postgresql/postgresql-{package,api,sql}.lisp: Apply
[clsql.git]
/
db-postgresql
/
postgresql-sql.lisp
diff --git
a/db-postgresql/postgresql-sql.lisp
b/db-postgresql/postgresql-sql.lisp
index d5a13f29befdbbc5eb86c7a5737e2a98e41f9954..2d74fc1179e160d765645b66597038a2344080d9 100644
(file)
--- a/
db-postgresql/postgresql-sql.lisp
+++ b/
db-postgresql/postgresql-sql.lisp
@@
-222,7
+222,7
@@
(error 'sql-database-data-error
:database database
:expression sql-expression
(error 'sql-database-data-error
:database database
:expression sql-expression
- :error-id (
PQresultStatus result
)
+ :error-id (
uffi:convert-from-foreign-string (PQresultErrorField result +PG-DIAG-SQLSTATE+)
)
:message (tidy-error-message
(PQresultErrorMessage result)))))
(PQclear result))))))
:message (tidy-error-message
(PQresultErrorMessage result)))))
(PQclear result))))))