Changeset 66 for branches/home/psmith/restructure/src/protocol
- Timestamp:
- 02/04/07 19:44:58 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified branches/home/psmith/restructure/src/protocol/yarpc/yarpc-packet-factory.lisp ¶
r56 r66 81 81 #+nio-debug (format-log t "yarpc-packet-factory:write-bytes(call-method-packet) - written ~%~A ~%" buf) 82 82 ) 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)))))) 84 87 85 88 (defclass method-response-packet (packet) … … 101 104 #+nio-debug (format-log t "yarpc-packet-factory:write-bytes - written ~A~%" buf) 102 105 ) 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.