From: Russ Tyndall <russ@acceleration.net>
Date: Fri, 17 Jun 2011 19:32:31 +0000 (-0400)
Subject: dont write an extra 0 byte to the postgres-socket-api before every
X-Git-Tag: v5.3.4~4
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=400240537204e1e14212b64d746ef609d010262f;hp=09cb05006ad2a2ede03f0e8409df71debef16c18

dont write an extra 0 byte to the postgres-socket-api before every
string write (in SBCL)
(fixes bug in 104ea5dc162028f1433940e19af03b6919a6082c)
---

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)