[nio-cvs] r65 - branches/home/psmith/restructure/src/io

[psmith at common-lisp.net]

Author: psmith
Date: Fri Feb  2 23:45:48 2007
New Revision: 65

Modified:
   branches/home/psmith/restructure/src/io/nio-server.lisp
Log:
Only attempt write when theres something to be written

Modified: branches/home/psmith/restructure/src/io/nio-server.lisp
==============================================================================
--- branches/home/psmith/restructure/src/io/nio-server.lisp	(original)
+++ branches/home/psmith/restructure/src/io/nio-server.lisp	Fri Feb  2 23:45:48 2007
@@ -49,7 +49,9 @@
 
 	       ;process-writes
 	       (process-write async-fd)
-	       (when (write-ready async-fd) (write-more async-fd)))
+	       (when (and (write-ready async-fd) 
+			  (> (buffer-position (foreign-write-buffer async-fd)) 0))
+		 (write-more async-fd)))
 	   client-hash))