[nio-cvs] r99 - branches/home/psmith/restructure/src/protocol/yarpc

[psmith at common-lisp.net]

Author: psmith
Date: Mon Feb 26 18:13:58 2007
New Revision: 99

Modified:
   branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp
Log:
Changed method-response-packet to write utf-8

Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp
==============================================================================
--- branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp	(original)
+++ branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp	Mon Feb 26 18:13:58 2007
@@ -125,7 +125,7 @@
 	(nio-buffer:bytebuffer-write-8 buf +METHOD-RESPONSE-PACKET-ID+)
 	(nio-buffer:bytebuffer-write-32 buf 0) ; come back and write length later
 	(nio-buffer:bytebuffer-write-32 buf (request-id packet))
-	(nio-buffer:bytebuffer-write-string buf (funcall +serialise-packet-fn+ (response packet)))
+	(nio-buffer:bytebuffer-write-string buf (funcall +serialise-packet-fn+ (response packet)) :utf-8)
 	(nio-buffer:bytebuffer-insert-32 buf (buffer-position buf) 1)
 #+nio-debug    (format-log t "yarpc-packet-factory:write-bytes - written ~A~%" buf)  
         )
@@ -135,4 +135,4 @@
 
 (defmethod get-packet-size ((packet method-response-packet))
   (+ +yarpc-packet-header-size+
-     (length (funcall +serialise-packet-fn+ (response packet)))))
+     (length (sb-ext:string-to-octets (funcall +serialise-packet-fn+ (response packet)) :external-format :utf-8))))