Changeset 92 for branches/home/psmith

Timestamp:

02/18/07 00:57:24 (18 years ago)

Author:

psmith

Message:

tidy up logging

Location:

branches/home/psmith/restructure/src

Files:

• protocol/yarpc/yarpc-state-machine.lisp (modified) (1 diff)
• statemachine/state-machine.lisp (modified) (1 diff)

branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp ¶

@@ -69 +69 @@
 
 (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

branches/home/psmith/restructure/src/statemachine/state-machine.lisp ¶

@@ -63 +63 @@
                (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)))))