X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql%2Fpostgresql-api.lisp;h=e01828cc8e369d0d2c15b238aaf606fa259bc47d;hb=9db6946c8331a477b309608ec6232cbfabb97d24;hp=b006bf655a733f89f12dd06d1f8965c3ad01655e;hpb=eb52183ddb786552d5abf6fdfaaca657e0c56ea0;p=clsql.git

diff --git a/db-postgresql/postgresql-api.lisp b/db-postgresql/postgresql-api.lisp
index b006bf6..e01828c 100644
--- a/db-postgresql/postgresql-api.lisp
+++ b/db-postgresql/postgresql-api.lisp
@@ -138,7 +138,7 @@
     ((res pgsql-result)
      (field-code :int))
   :module "postgresql"
-  :returning (* char))
+  :returning :cstring)
 
 (declaim (inline PQresultErrorMessage))
 (uffi:def-function ("PQresultErrorMessage" PQresultErrorMessage)