23 Sep
2012
23 Sep
'12
4:32 p.m.
Author: ehuelsmann Date: Sun Sep 23 07:32:21 2012 New Revision: 226
Log: Use HANDLER-CASE where HANDLER-CASE was meant to be used.
Modified: trunk/protocol.lisp
Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp Sun Sep 23 04:35:53 2012 (r225) +++ trunk/protocol.lisp Sun Sep 23 07:32:21 2012 (r226) @@ -344,7 +344,7 @@
(defgeneric read-message-loop (connection)) (defmethod read-message-loop (connection) - (handler-bind + (handler-case (loop while (read-message connection)) (end-of-file () nil)))