Ignore:
Timestamp:
02/04/07 19:44:58 (18 years ago)
Author:
psmith
Message:

plumb in large packet support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp

    r56 r66  
    8181  #+nio-debug    (format-log t "yarpc-packet-factory:write-bytes(call-method-packet) - written ~%~A ~%" buf) 
    8282  )
    83  
     83
     84(defmethod get-packet-size ((packet call-method-packet))
     85  (+ +yarpc-packet-header-size+
     86     (length (sb-ext:string-to-octets (write-to-string (call-string packet))))))
    8487
    8588(defclass method-response-packet (packet)
     
    101104#+nio-debug    (format-log t "yarpc-packet-factory:write-bytes - written ~A~%" buf) 
    102105)
     106
     107(defmethod get-packet-size ((packet method-response-packet))
     108  (+ +yarpc-packet-header-size+
     109     (length (sb-ext:string-to-octets (write-to-string (response packet))))))
Note: See TracChangeset for help on using the changeset viewer.