X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-api.lisp;fp=db-postgresql-socket%2Fpostgresql-socket-api.lisp;h=07b979f8042bc9cf8d3fb676dd685ec12ebb1631;hp=899d3bbba49911a1c61d2cc47707599fe88818f4;hb=400240537204e1e14212b64d746ef609d010262f;hpb=09cb05006ad2a2ede03f0e8409df71debef16c18

diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp
index 899d3bb..07b979f 100644
--- a/db-postgresql-socket/postgresql-socket-api.lisp
+++ b/db-postgresql-socket/postgresql-socket-api.lisp
@@ -122,6 +122,7 @@ socket interface"
   #+ccl
   (write-sequence (ccl:encode-string-to-octets
                    value :external-format :utf-8) socket)
+  #+ccl
   (write-byte 0 socket)
   #+sb-unicode
   (write-sequence (sb-ext:string-to-octets value :null-terminate t)