From: Russ Tyndall <russ@acceleration.net>
Date: Fri, 10 Oct 2008 20:07:12 +0000 (-0400)
Subject: added :external-format :utf8 on the string-to-octets call
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=85b3262193461449fe90f85a3909bf64506fe218;p=clsql.git

added :external-format :utf8 on the string-to-octets call
---

diff --git a/db-postgresql-socket/postgresql-socket-api.lisp b/db-postgresql-socket/postgresql-socket-api.lisp
index 31756ef..64c4240 100644
--- a/db-postgresql-socket/postgresql-socket-api.lisp
+++ b/db-postgresql-socket/postgresql-socket-api.lisp
@@ -113,7 +113,7 @@ socket interface"
         do (write-byte code socket)
         finally (write-byte 0 socket))
   #+sb-unicode
-  (write-sequence (sb-ext:string-to-octets value :null-terminate t) socket)
+  (write-sequence (sb-ext:string-to-octets value :external-format :utf8 :null-terminate t) socket)
   nil)
 
 (defun send-socket-value-limstring (socket value limit)