projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11232: 16 Oct 2006 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
db-postgresql
/
postgresql-sql.lisp
diff --git
a/db-postgresql/postgresql-sql.lisp
b/db-postgresql/postgresql-sql.lisp
index d5a13f29befdbbc5eb86c7a5737e2a98e41f9954..82f03e2454a0d63fff2ddfb4822fd96f31169d9d 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 (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))))))