Author: psmith Date: Sat Feb 17 19:57:24 2007 New Revision: 92 Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp branches/home/psmith/restructure/src/statemachine/state-machine.lisp Log: tidy up logging Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp ============================================================================== --- branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp (original) +++ branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp Sat Feb 17 19:57:24 2007 @@ -68,7 +68,7 @@ (defmethod process-outgoing-packet((sm yarpc-state-machine)) -#+nio-debug (format-log t "yarpc-state-machine:process-outgoing-packet - called, polling the results-queue ~%" ) +#+nio-debug2 (format-log t "yarpc-state-machine:process-outgoing-packet - called, polling the results-queue ~%" ) (let ((server-job (nio-compat:take (result-queue sm) :blocking-call nil))) (when server-job (destructuring-bind (request-id result) server-job Modified: branches/home/psmith/restructure/src/statemachine/state-machine.lisp ============================================================================== --- branches/home/psmith/restructure/src/statemachine/state-machine.lisp (original) +++ branches/home/psmith/restructure/src/statemachine/state-machine.lisp Sat Feb 17 19:57:24 2007 @@ -62,10 +62,10 @@ (buffer-too-small-error (read-err) (if (recommend-buffer-size sm :read (recommended-size read-err)) (progn - (format-log t "resized incomming buffer ~A~%"foreign-read-buffer) +#+nio-debug (format-log t "state-machine::process-read - resized incomming buffer ~A~%"foreign-read-buffer) nil) (error 'not-implemented-yet-read-resize-failure)))))) - (format-log t "state-machine::process-read - incoming packet: ~A~%" incoming-packet) +#+nio-debug (format-log t "state-machine::process-read - incoming packet: ~A~%" incoming-packet) (when incoming-packet (process-incoming-packet sm incoming-packet)))))