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

[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 31756efc8350aec8c21a2e370a36bb652e237d9b..64c424043ddd5720f0b0152a478401980ca0cbfb 100644 (file)
--- 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)