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