[nio-cvs] r75 - branches/home/psmith/restructure/src/statemachine

[psmith at common-lisp.net]

Author: psmith
Date: Tue Feb  6 20:17:03 2007
New Revision: 75

Modified:
   branches/home/psmith/restructure/src/statemachine/state-machine.lisp
Log:
Removed close con in sm if process-packet returns null (is allowed)

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	Tue Feb  6 20:17:03 2007
@@ -65,8 +65,7 @@
 		   (error 'not-implemented-yet-read-resize-failure))))))
       (format-log t "state-machine::process-read - incoming packet: ~A~%" incoming-packet)
       (when incoming-packet 
-      	  (when (not (process-incoming-packet sm incoming-packet))
-      	    (close-sm sm))))))
+      	  (process-incoming-packet sm incoming-packet)))))
 
 ;The connection is write ready.
 ;See if theres anything ready to be written in the SM