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

[psmith at common-lisp.net]

Author: psmith
Date: Mon Feb 26 17:57:14 2007
New Revision: 98

Modified:
   branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp
Log:
Use +serialise-packaet-fn+ to calculate size of packet when resizing

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 17:57:14 2007
@@ -135,4 +135,4 @@
 
 (defmethod get-packet-size ((packet method-response-packet))
   (+ +yarpc-packet-header-size+
-     (length (sb-ext:string-to-octets (write-to-string (response packet))))))
+     (length (funcall +serialise-packet-fn+ (response packet)))))