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

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)