dont write an extra 0 byte to the postgres-socket-api before every

[clsql.git] / db-postgresql-socket / postgresql-socket-api.lisp

diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp
index 899d3bbba49911a1c61d2cc47707599fe88818f4..07b979f8042bc9cf8d3fb676dd685ec12ebb1631 100644 (file)
--- 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)