[nio-cvs] r92 - in branches/home/psmith/restructure/src: protocol/yarpc statemachine

[psmith at common-lisp.net]

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