Author: psmith Date: Sat Feb 17 19:37:51 2007 New Revision: 90
Modified: branches/home/psmith/restructure/src/io/async-fd.lisp Log: close on EOF
Modified: branches/home/psmith/restructure/src/io/async-fd.lisp ============================================================================== --- branches/home/psmith/restructure/src/io/async-fd.lisp (original) +++ branches/home/psmith/restructure/src/io/async-fd.lisp Sat Feb 17 19:37:51 2007 @@ -101,7 +101,8 @@ (close-fd (read-fd state-machine)) (error 'read-error :errno errno))))) ((= new-bytes 0) - nil);;(throw 'end-of-file nil) + (format-log t "async-fd:read-more - EOF on ~A~%" state-machine) + (error 'read-error));;(throw 'end-of-file nil) (t ;;Update buffer position (inc-position foreign-read-buffer new-bytes)