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)))))