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 2d74fc1179e160d765645b66597038a2344080d9..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 (
uffi:convert-from-foreign-string (PQresultErrorField result +PG-DIAG-SQLSTATE+)
)
+ :error-id (
PQresultErrorField result +PG-DIAG-SQLSTATE+
)
:message (tidy-error-message
(PQresultErrorMessage result)))))
(PQclear result))))))
:message (tidy-error-message
(PQresultErrorMessage result)))))
(PQclear result))))))