X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;h=82f03e2454a0d63fff2ddfb4822fd96f31169d9d;hp=2d74fc1179e160d765645b66597038a2344080d9;hb=555141f5d077a76f5bdd6ae83a2b3aee2c66f0c3;hpb=83976b106f53c0a64fe72f4aaa743aa36be6d93e diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp index 2d74fc1..82f03e2 100644 --- 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-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))))))