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