From 85b3262193461449fe90f85a3909bf64506fe218 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Fri, 10 Oct 2008 16:07:12 -0400 Subject: [PATCH] added :external-format :utf8 on the string-to-octets call --- db-postgresql-socket/postgresql-socket-api.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.34.1