Changeset 99

Timestamp:

02/26/07 23:13:58 (18 years ago)

Author:

psmith

Message:

Changed method-response-packet to write utf-8

File:

• branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp (modified) (2 diffs)

branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp ¶

@@ -126 +126 @@
         (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)  
@@ -136 +136 @@
 (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))))