Author: psmith Date: Thu Apr 26 16:43:14 2007 New Revision: 112
Modified: branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp Log: Allow configurable timeout
Modified: branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp ============================================================================== --- branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp (original) +++ branches/home/psmith/restructure/src/protocol/yarpc/nio-yarpc-package.lisp Thu Apr 26 16:43:14 2007 @@ -37,5 +37,5 @@ test-rpc test-rpc-list test-rpc-string execute-call defremote process-timeout ;;yarpc-client-state-machine - yarpc-client-state-machine remote-execute simulate-connection + yarpc-client-state-machine remote-execute simulate-connection +rpc-timeout+ ))
Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp ============================================================================== --- branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp (original) +++ branches/home/psmith/restructure/src/protocol/yarpc/yarpc-client-state-machine.lisp Thu Apr 26 16:43:14 2007 @@ -48,11 +48,13 @@ :reader start-time :documentation "The (floating point) start time") (timeout :initarg :timeout - :initform 15 :reader timeout :documentation "The time in seconds before a timeout should occur, abviously we dont guarantee that this will be honored, it depends on other processing but should be close.")))
-(defun remote-job(callback &key (timeout 15)) +(defparameter +rpc-timeout+ 60 + "The number of seconds before a remote call is considered timedout") + +(defun remote-job(callback &key (timeout +rpc-timeout+)) (make-instance 'remote-job :callback callback :timeout timeout))