[noctool-cvs] CVS source

[imattsson]

Update of /project/noctool/cvsroot/source
In directory clnet:/tmp/cvs-serv4360

Modified Files:
	network.lisp 
Log Message:
IM

"Oooops". Should be protocol-dispatching, not just reading. Fixed.


--- /project/noctool/cvsroot/source/network.lisp	2008/08/27 05:59:16	1.5
+++ /project/noctool/cvsroot/source/network.lisp	2008/08/27 06:04:44	1.6
@@ -415,7 +415,7 @@
 
 (defmethod noctool-scheduler:process ((event peer-check-event))
   (loop for conn in *connections*
-	do (handle-read conn))
+	do (handle-peer conn))
   (schedule event (1+ (get-universal-time))))
 
 (defun update-peers (monitor-list)